AVAPI001.m

AVAPI001 ; ; 15-AUG-1995

 ;;93.2;PATCHES FOR VA SUPPPORT FILES;;AUG 15, 1995;Build 12

 Q:'DIFQ(200)  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^DIC(200,0,"GL")

 ;;=^VA(200,

 ;;^DIC("B","NEW PERSON",200)

 ;;=

 ;;^DIC(200,"%",0)

 ;;=^1.005^2^2

 ;;^DIC(200,"%",1,0)

 ;;=QAM

 ;;^DIC(200,"%",2,0)

 ;;=QAP

 ;;^DIC(200,"%","B","QAM",1)

 ;;=

 ;;^DIC(200,"%","B","QAP",2)

 ;;=

 ;;^DIC(200,"%D",0)

 ;;=^^18^18^2941114^^^

 ;;^DIC(200,"%D",0,"LE")

 ;;=1

 ;;^DIC(200,"%D",1,0)

 ;;=This file contains data on employees, users, practitioners, etc.

 ;;^DIC(200,"%D",2,0)

 ;;=who were previously in Files 3,6,16 and others.

 ;;^DIC(200,"%D",3,0)

 ;;= 

 ;;^DIC(200,"%D",4,0)

 ;;=DHCP packages must check with the KERNEL developers to see that

 ;;^DIC(200,"%D",5,0)

 ;;=a given number/namespace is clear for them to use.

 ;;^DIC(200,"%D",6,0)

 ;;= 

 ;;^DIC(200,"%D",7,0)

 ;;=Field numbers 53-59.9 reserved for Pharm.

 ;;^DIC(200,"%D",8,0)

 ;;= Nodes and X-ref 'PS*'.

 ;;^DIC(200,"%D",9,0)

 ;;=Field numbers 70-79.9 reserved for Radiology

 ;;^DIC(200,"%D",10,0)

 ;;= Nodes and X-ref 'RA*'.

 ;;^DIC(200,"%D",11,0)

 ;;=Field numbers 720-725 reserved for DSSM

 ;;^DIC(200,"%D",12,0)

 ;;= Nodes and X-ref 'EC*' and 'AEC*'.

 ;;^DIC(200,"%D",13,0)

 ;;=Field numbers 740-749.9 reserved for QA

 ;;^DIC(200,"%D",14,0)

 ;;= Nodes and X-ref 'QA*'.

 ;;^DIC(200,"%D",15,0)

 ;;=Field numbers 654-654.9 reserved for Social work

 ;;^DIC(200,"%D",16,0)

 ;;= Node 654 and X-ref 'SW*'.

 ;;^DIC(200,"%D",17,0)

 ;;=Field numbers 500-500.9 reserved for mailman

 ;;^DIC(200,"%D",18,0)

 ;;= Node 500 and X-ref 'XM*' and 'AXM*'.

 ;;^DD(200,0)

 ;;=FIELD^NL^9999999.09^182

 ;;^DD(200,0,"DDA")

 ;;=N

 ;;^DD(200,0,"DT")

 ;;=2930511

 ;;^DD(200,0,"ID",1)

 ;;=W "   ",$P(^(0),U,2)

 ;;^DD(200,0,"ID",28)

 ;;=W:$D(^(5)) "   ",$P(^(5),U,2)

 ;;^DD(200,0,"IX","A",200,2)

 ;;=

 ;;^DD(200,0,"IX","A16",200,8980.16)

 ;;=

 ;;^DD(200,0,"IX","AB",200.051,.01)

 ;;=

 ;;^DD(200,0,"IX","AB2",200,200.09)

 ;;=

 ;;^DD(200,0,"IX","AC",200,14.9)

 ;;=

 ;;^DD(200,0,"IX","ACSW",200,654.3)

 ;;=

 ;;^DD(200,0,"IX","ACX1",200,.111)

 ;;=

 ;;^DD(200,0,"IX","ACX10",200,.1214)

 ;;=

 ;;^DD(200,0,"IX","ACX11",200,.1215)

 ;;=

 ;;^DD(200,0,"IX","ACX12",200,.1216)

 ;;=

 ;;^DD(200,0,"IX","ACX13",200,.131)

 ;;=

 ;;^DD(200,0,"IX","ACX14",200,.132)

 ;;=

 ;;^DD(200,0,"IX","ACX15",200,.133)

 ;;=

 ;;^DD(200,0,"IX","ACX16",200,.134)

 ;;=

 ;;^DD(200,0,"IX","ACX17",200,.1217)

 ;;=

 ;;^DD(200,0,"IX","ACX18",200,.1218)

 ;;=

 ;;^DD(200,0,"IX","ACX2",200,.112)

 ;;=

 ;;^DD(200,0,"IX","ACX20",200,20.2)

 ;;=

 ;;^DD(200,0,"IX","ACX21",200,20.3)

 ;;=

 ;;^DD(200,0,"IX","ACX22",200,5)

 ;;=

 ;;^DD(200,0,"IX","ACX23",200,20.4)

 ;;=

 ;;^DD(200,0,"IX","ACX25",200,3)

 ;;=

 ;;^DD(200,0,"IX","ACX26",200,28)

 ;;=

 ;;^DD(200,0,"IX","ACX27",200,13)

 ;;=

 ;;^DD(200,0,"IX","ACX28",200,29)

 ;;=

 ;;^DD(200,0,"IX","ACX29",200,9.2)

 ;;=

 ;;^DD(200,0,"IX","ACX3",200,.113)

 ;;=

 ;;^DD(200,0,"IX","ACX30",200,8)

 ;;=

 ;;^DD(200,0,"IX","ACX31",200,1)

 ;;=

 ;;^DD(200,0,"IX","ACX32",200,4)

 ;;=

 ;;^DD(200,0,"IX","ACX33",200,9)

 ;;=

 ;;^DD(200,0,"IX","ACX34",200,9.1)

 ;;=

 ;;^DD(200,0,"IX","ACX35",200,53.4)

 ;;=

 ;;^DD(200,0,"IX","ACX36",200,53.5)

 ;;=

 ;;^DD(200,0,"IX","ACX37",200,53.6)

 ;;=

 ;;^DD(200,0,"IX","ACX38",200,53.2)

 ;;=

 ;;^DD(200,0,"IX","ACX39",200,53.3)

 ;;=

 ;;^DD(200,0,"IX","ACX4",200,.114)

 ;;=

 ;;^DD(200,0,"IX","ACX5",200,.115)

 ;;=

 ;;^DD(200,0,"IX","ACX6",200,.116)

 ;;=

 ;;^DD(200,0,"IX","ACX7",200,.1211)

 ;;=

 ;;^DD(200,0,"IX","ACX8",200,.1212)

 ;;=

 ;;^DD(200,0,"IX","ACX9",200,.1213)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS01",200,9999999.01)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS02",200,9999999.02)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS05",200,9999999.05)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS06",200,9999999.06)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS07",200,9999999.07)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS08",200,9999999.08)

 ;;=

 ;;^DD(200,0,"IX","ACXIHS09",200,9999999.09)

 ;;=

 ;;^DD(200,0,"IX","AD",200.03,.01)

 ;;=

 ;;^DD(200,0,"IX","AE",200,.01)

 ;;=

 ;;^DD(200,0,"IX","AF",200,.01)

 ;;=

 ;;^DD(200,0,"IX","AG",200,.01)

 ;;=

 ;;^DD(200,0,"IX","AH",200,.01)

 ;;=

 ;;^DD(200,0,"IX","AIHS",200,53.5)

 ;;=

 ;;^DD(200,0,"IX","AK",200.051,.01)

 ;;=

 ;;^DD(200,0,"IX","AOA",200.03,.01)

 ;;=

 ;;^DD(200,0,"IX","AOB",200.03,2)

 ;;=

 ;;^DD(200,0,"IX","AOLD",200,2)

 ;;=

 ;;^DD(200,0,"IX","AP",200,201)

 ;;=

 ;;^DD(200,0,"IX","ASWB",200,654)

 ;;=

 ;;^DD(200,0,"IX","ASWC",200,654.1)

 ;;=

 ;;^DD(200,0,"IX","ASWD",200,654.2)

 ;;=

 ;;^DD(200,0,"IX","ASWE",200,654.15)

 ;;=

 ;;^DD(200,0,"IX","ASX",200,.01)

 ;;=

 ;;^DD(200,0,"IX","AXQA",200.194,.02)

 ;;=

 ;;^DD(200,0,"IX","AXQAN",200.194,.02)

 ;;=

 ;;^DD(200,0,"IX","B",200,.01)

 ;;=

 ;;^DD(200,0,"IX","BB",200.04,.01)

 ;;=

 ;;^DD(200,0,"IX","BS5",200,.01)

 ;;=

 ;;^DD(200,0,"IX","BS55",200,9)

 ;;=

 ;;^DD(200,0,"IX","C",200,1)

 ;;=

 ;;^DD(200,0,"IX","D",200,13)

 ;;=

AVAPI001  ; ; 15-AUG-1995

 +1       ;;93.2;PATCHES FOR VA SUPPPORT FILES;;AUG 15, 1995;Build 12

 +2        IF 'DIFQ(200)

               QUIT 

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^DIC(200,0,"GL")

 +2       ;;=^VA(200,

 +3       ;;^DIC("B","NEW PERSON",200)

 +4       ;;=

 +5       ;;^DIC(200,"%",0)

 +6       ;;=^1.005^2^2

 +7       ;;^DIC(200,"%",1,0)

 +8       ;;=QAM

 +9       ;;^DIC(200,"%",2,0)

 +10      ;;=QAP

 +11      ;;^DIC(200,"%","B","QAM",1)

 +12      ;;=

 +13      ;;^DIC(200,"%","B","QAP",2)

 +14      ;;=

 +15      ;;^DIC(200,"%D",0)

 +16      ;;=^^18^18^2941114^^^

 +17      ;;^DIC(200,"%D",0,"LE")

 +18      ;;=1

 +19      ;;^DIC(200,"%D",1,0)

 +20      ;;=This file contains data on employees, users, practitioners, etc.

 +21      ;;^DIC(200,"%D",2,0)

 +22      ;;=who were previously in Files 3,6,16 and others.

 +23      ;;^DIC(200,"%D",3,0)

 +24      ;;= 

 +25      ;;^DIC(200,"%D",4,0)

 +26      ;;=DHCP packages must check with the KERNEL developers to see that

 +27      ;;^DIC(200,"%D",5,0)

 +28      ;;=a given number/namespace is clear for them to use.

 +29      ;;^DIC(200,"%D",6,0)

 +30      ;;= 

 +31      ;;^DIC(200,"%D",7,0)

 +32      ;;=Field numbers 53-59.9 reserved for Pharm.

 +33      ;;^DIC(200,"%D",8,0)

 +34      ;;= Nodes and X-ref 'PS*'.

 +35      ;;^DIC(200,"%D",9,0)

 +36      ;;=Field numbers 70-79.9 reserved for Radiology

 +37      ;;^DIC(200,"%D",10,0)

 +38      ;;= Nodes and X-ref 'RA*'.

 +39      ;;^DIC(200,"%D",11,0)

 +40      ;;=Field numbers 720-725 reserved for DSSM

 +41      ;;^DIC(200,"%D",12,0)

 +42      ;;= Nodes and X-ref 'EC*' and 'AEC*'.

 +43      ;;^DIC(200,"%D",13,0)

 +44      ;;=Field numbers 740-749.9 reserved for QA

 +45      ;;^DIC(200,"%D",14,0)

 +46      ;;= Nodes and X-ref 'QA*'.

 +47      ;;^DIC(200,"%D",15,0)

 +48      ;;=Field numbers 654-654.9 reserved for Social work

 +49      ;;^DIC(200,"%D",16,0)

 +50      ;;= Node 654 and X-ref 'SW*'.

 +51      ;;^DIC(200,"%D",17,0)

 +52      ;;=Field numbers 500-500.9 reserved for mailman

 +53      ;;^DIC(200,"%D",18,0)

 +54      ;;= Node 500 and X-ref 'XM*' and 'AXM*'.

 +55      ;;^DD(200,0)

 +56      ;;=FIELD^NL^9999999.09^182

 +57      ;;^DD(200,0,"DDA")

 +58      ;;=N

 +59      ;;^DD(200,0,"DT")

 +60      ;;=2930511

 +61      ;;^DD(200,0,"ID",1)

 +62      ;;=W "   ",$P(^(0),U,2)

 +63      ;;^DD(200,0,"ID",28)

 +64      ;;=W:$D(^(5)) "   ",$P(^(5),U,2)

 +65      ;;^DD(200,0,"IX","A",200,2)

 +66      ;;=

 +67      ;;^DD(200,0,"IX","A16",200,8980.16)

 +68      ;;=

 +69      ;;^DD(200,0,"IX","AB",200.051,.01)

 +70      ;;=

 +71      ;;^DD(200,0,"IX","AB2",200,200.09)

 +72      ;;=

 +73      ;;^DD(200,0,"IX","AC",200,14.9)

 +74      ;;=

 +75      ;;^DD(200,0,"IX","ACSW",200,654.3)

 +76      ;;=

 +77      ;;^DD(200,0,"IX","ACX1",200,.111)

 +78      ;;=

 +79      ;;^DD(200,0,"IX","ACX10",200,.1214)

 +80      ;;=

 +81      ;;^DD(200,0,"IX","ACX11",200,.1215)

 +82      ;;=

 +83      ;;^DD(200,0,"IX","ACX12",200,.1216)

 +84      ;;=

 +85      ;;^DD(200,0,"IX","ACX13",200,.131)

 +86      ;;=

 +87      ;;^DD(200,0,"IX","ACX14",200,.132)

 +88      ;;=

 +89      ;;^DD(200,0,"IX","ACX15",200,.133)

 +90      ;;=

 +91      ;;^DD(200,0,"IX","ACX16",200,.134)

 +92      ;;=

 +93      ;;^DD(200,0,"IX","ACX17",200,.1217)

 +94      ;;=

 +95      ;;^DD(200,0,"IX","ACX18",200,.1218)

 +96      ;;=

 +97      ;;^DD(200,0,"IX","ACX2",200,.112)

 +98      ;;=

 +99      ;;^DD(200,0,"IX","ACX20",200,20.2)

 +100     ;;=

 +101     ;;^DD(200,0,"IX","ACX21",200,20.3)

 +102     ;;=

 +103     ;;^DD(200,0,"IX","ACX22",200,5)

 +104     ;;=

 +105     ;;^DD(200,0,"IX","ACX23",200,20.4)

 +106     ;;=

 +107     ;;^DD(200,0,"IX","ACX25",200,3)

 +108     ;;=

 +109     ;;^DD(200,0,"IX","ACX26",200,28)

 +110     ;;=

 +111     ;;^DD(200,0,"IX","ACX27",200,13)

 +112     ;;=

 +113     ;;^DD(200,0,"IX","ACX28",200,29)

 +114     ;;=

 +115     ;;^DD(200,0,"IX","ACX29",200,9.2)

 +116     ;;=

 +117     ;;^DD(200,0,"IX","ACX3",200,.113)

 +118     ;;=

 +119     ;;^DD(200,0,"IX","ACX30",200,8)

 +120     ;;=

 +121     ;;^DD(200,0,"IX","ACX31",200,1)

 +122     ;;=

 +123     ;;^DD(200,0,"IX","ACX32",200,4)

 +124     ;;=

 +125     ;;^DD(200,0,"IX","ACX33",200,9)

 +126     ;;=

 +127     ;;^DD(200,0,"IX","ACX34",200,9.1)

 +128     ;;=

 +129     ;;^DD(200,0,"IX","ACX35",200,53.4)

 +130     ;;=

 +131     ;;^DD(200,0,"IX","ACX36",200,53.5)

 +132     ;;=

 +133     ;;^DD(200,0,"IX","ACX37",200,53.6)

 +134     ;;=

 +135     ;;^DD(200,0,"IX","ACX38",200,53.2)

 +136     ;;=

 +137     ;;^DD(200,0,"IX","ACX39",200,53.3)

 +138     ;;=

 +139     ;;^DD(200,0,"IX","ACX4",200,.114)

 +140     ;;=

 +141     ;;^DD(200,0,"IX","ACX5",200,.115)

 +142     ;;=

 +143     ;;^DD(200,0,"IX","ACX6",200,.116)

 +144     ;;=

 +145     ;;^DD(200,0,"IX","ACX7",200,.1211)

 +146     ;;=

 +147     ;;^DD(200,0,"IX","ACX8",200,.1212)

 +148     ;;=

 +149     ;;^DD(200,0,"IX","ACX9",200,.1213)

 +150     ;;=

 +151     ;;^DD(200,0,"IX","ACXIHS01",200,9999999.01)

 +152     ;;=

 +153     ;;^DD(200,0,"IX","ACXIHS02",200,9999999.02)

 +154     ;;=

 +155     ;;^DD(200,0,"IX","ACXIHS05",200,9999999.05)

 +156     ;;=

 +157     ;;^DD(200,0,"IX","ACXIHS06",200,9999999.06)

 +158     ;;=

 +159     ;;^DD(200,0,"IX","ACXIHS07",200,9999999.07)

 +160     ;;=

 +161     ;;^DD(200,0,"IX","ACXIHS08",200,9999999.08)

 +162     ;;=

 +163     ;;^DD(200,0,"IX","ACXIHS09",200,9999999.09)

 +164     ;;=

 +165     ;;^DD(200,0,"IX","AD",200.03,.01)

 +166     ;;=

 +167     ;;^DD(200,0,"IX","AE",200,.01)

 +168     ;;=

 +169     ;;^DD(200,0,"IX","AF",200,.01)

 +170     ;;=

 +171     ;;^DD(200,0,"IX","AG",200,.01)

 +172     ;;=

 +173     ;;^DD(200,0,"IX","AH",200,.01)

 +174     ;;=

 +175     ;;^DD(200,0,"IX","AIHS",200,53.5)

 +176     ;;=

 +177     ;;^DD(200,0,"IX","AK",200.051,.01)

 +178     ;;=

 +179     ;;^DD(200,0,"IX","AOA",200.03,.01)

 +180     ;;=

 +181     ;;^DD(200,0,"IX","AOB",200.03,2)

 +182     ;;=

 +183     ;;^DD(200,0,"IX","AOLD",200,2)

 +184     ;;=

 +185     ;;^DD(200,0,"IX","AP",200,201)

 +186     ;;=

 +187     ;;^DD(200,0,"IX","ASWB",200,654)

 +188     ;;=

 +189     ;;^DD(200,0,"IX","ASWC",200,654.1)

 +190     ;;=

 +191     ;;^DD(200,0,"IX","ASWD",200,654.2)

 +192     ;;=

 +193     ;;^DD(200,0,"IX","ASWE",200,654.15)

 +194     ;;=

 +195     ;;^DD(200,0,"IX","ASX",200,.01)

 +196     ;;=

 +197     ;;^DD(200,0,"IX","AXQA",200.194,.02)

 +198     ;;=

 +199     ;;^DD(200,0,"IX","AXQAN",200.194,.02)

 +200     ;;=

 +201     ;;^DD(200,0,"IX","B",200,.01)

 +202     ;;=

 +203     ;;^DD(200,0,"IX","BB",200.04,.01)

 +204     ;;=

 +205     ;;^DD(200,0,"IX","BS5",200,.01)

 +206     ;;=

 +207     ;;^DD(200,0,"IX","BS55",200,9)

 +208     ;;=

 +209     ;;^DD(200,0,"IX","C",200,1)

 +210     ;;=

 +211     ;;^DD(200,0,"IX","D",200,13)

 +212     ;;=