Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BCHON009

BCHON009.m

Go to the documentation of this file.
BCHON009 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;  [ 10/28/96  2:05 PM ]
 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996
 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) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,"PRO",749,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",749,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",749,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",749,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",749,770)
 ;;=86^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",750,0)
 ;;=BCH HL7 SERVER CHRPC81^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",750,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",750,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",750,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",750,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",750,770)
 ;;=87^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",751,0)
 ;;=BCH HL7 SERVER CHRPC82^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",751,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",751,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",751,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",751,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",751,770)
 ;;=88^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",752,0)
 ;;=BCH HL7 SERVER CHRPC83^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",752,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",752,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",752,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",752,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",752,770)
 ;;=89^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",753,0)
 ;;=BCH HL7 SERVER CHRPC84^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",753,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",753,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",753,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",753,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",753,770)
 ;;=90^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",754,0)
 ;;=BCH HL7 SERVER CHRPC85^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",754,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",754,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",754,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",754,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",754,770)
 ;;=91^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",755,0)
 ;;=BCH HL7 SERVER CHRPC86^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",755,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",755,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",755,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",755,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",755,770)
 ;;=92^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",756,0)
 ;;=BCH HL7 SERVER CHRPC87^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",756,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",756,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",756,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",756,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",756,770)
 ;;=93^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",757,0)
 ;;=BCH HL7 SERVER CHRPC88^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",757,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",757,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",757,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",757,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",757,770)
 ;;=94^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",758,0)
 ;;=BCH HL7 SERVER CHRPC89^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",758,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",758,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",758,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",758,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",758,770)
 ;;=95^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",759,0)
 ;;=BCH HL7 SERVER CHRPC90^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",759,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",759,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",759,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",759,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",759,770)
 ;;=96^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",760,0)
 ;;=BCH HL7 SERVER CHRPC91^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",760,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",760,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",760,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",760,99)
 ;;=56873,29040
 ;;^UTILITY(U,$J,"PRO",760,770)
 ;;=97^^3^46^i^P^^3^3^2
 ;;^UTILITY(U,$J,"PRO",761,0)
 ;;=BCH HL7 SERVER CHRPC92^CHR Penbased HL7 ORU Message^^E^^^^^^^^IHS RPMS CHR SYSTEM
 ;;^UTILITY(U,$J,"PRO",761,10,0)
 ;;=^101.01PA^1^1
 ;;^UTILITY(U,$J,"PRO",761,10,1,0)
 ;;=342^^1
 ;;^UTILITY(U,$J,"PRO",761,10,1,"^")
 ;;=BCH HL7 ORU
 ;;^UTILITY(U,$J,"PRO",761,99)
 ;;=56873,29040