©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AZHLSC1 ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 1: GENERAL PROGRAMMING STANDARDS & CONVENTIONS ; [ 01/26/2000 2:18 PM ] [2/10/00 10:05am]
;;5.0;AZHLSC;;JUL 10, 1996
;
W !!!,$P($P($T(+1),";",2),"-",2)
NEW AZHLFILE,AZHLFLD,A,B
1211 D TTL^AZHLSC("1.2.1.1, (10.2) File Numbers")
I 'AZHLPIEN D NPKG^AZHLSC Q
I '$P($T(@AZHLNMSP),";",3) W !?20,"Can't check: Unknown number space." Q
S %=0,A=$P($T(@AZHLNMSP),";",3),B=$S($P($T(@AZHLNMSP),";",4):$P($T(@AZHLNMSP),";",4)_".9999999",1:A_".9999999")
F S %=$O(^DIC(9.4,AZHLPIEN,4,"B",%)) Q:'% W:AZHLTERM "." I $S(%<A:1,%>B:1,1:0) W !?10,"File ",%," not in File Number Space ",A,"-",B,"."
Q
AAPC ;;9002051;9002060
ABC ;;9002276;
ABD ;;9002277;
ABM ;;9002274;
ABMD ;;9002274;
ABP ;;9002270;9002273
ABPA ;;9002270;9002273
ABS ;;9002300;9002319
ACD ;;9002170;9002174
ACE ;;9009066;9009075
ACG ;;9002330;9002339
ACHA ;;9002120;9002129
ACHD ;;9002061;9002080
ACHR ;;8004500;8004519
ACHS ;;9002061;9002080
ACI ;;9002230;9002239
ACM ;;9002240;9002259
ACR ;;9002185;9003099
ADB ;;9002100;9002109
ADE ;;9002001;9002010
ADG ;;9009011;9009015
ADS ;;9002290;9002299
AEN ;;9009001;9009010
AEQ ;;9002150;9002154
AEW ;;9002175;9002184
AFH ;;9002260;9002269
AFI ;;9002110;9002119
AFM ;;9002280;9002289
AFS ;;9002320;9002329
AFSL ;;9002325;9002325
AG ;;9009061;9009065
AIB ;;9002140;9002149
AICD ;;9001001;9001999
AIU ;;9002274;9002279
ALM ;;1800000;1899999
ALP ;;2100000;
ALR ;;9009021;9009030
AMCH ;;9002081;9002090
AMCO ;;9002081;9002090
AMCP ;;9002081;9002090
AMCR ;;9002081;9002090
AMCS ;;9002081;9002090
AMER ;;9009080;9009084
AML ;;9002200;9002219
AMQ ;;9009070;9009079
AMQQ ;;9009070;9009079
AMR ;;9002340;9002349
AMS ;;9002130;9002139
AND ;;8004300;8004309
ANS ;;9009051;9009060
AOA ;;9009041;9009050
APCD ;;9001001;9001999
APCH ;;9001001;9001999
APCL ;;9001001;9001999
APCM ;;9001001;9001999
APCP ;;9001001;9001999
APCR ;;9001001;9001999
APC2 ;;9001001;9001999
APCT ;;9001050;
API ;;8004350;8004369
APM ;;9002091;9002099
APS ;;9009031;9009040
APSP ;;9009031;9009040
APZ ;;9002275;
AQA ;;9002155;9002169
AQAQ ;;9002155;9002169
ARM ;;9003000;9003099
ASA ;;9002400;9002499
ASD ;;9009016;9009020
ASM ;;1800000;1899999
ASO ;;9002041;9002050
ASU ;;9002030;9002040
ASUA ;;9002030;9002040
ATA ;;8004100;8004109
ATC ;;1400000;1499999
ATF ;;9003120;9003129
ATFA ;;9003120;9003129
ATFL ;;9003120;9003129
ATS ;;9002220;9002225
ATX ;;9002226;9002229
AUM ;;9003100;9003119
AUMD ;;9003100;9003119
AUPN ;;9000001;9000999
AUSC ;;1800004;
AUT ;;9999999;9999999
AY ;;3000000;3000199
AZHA ;;8008500;8008599
AZHB ;;8008700;8008799
AZHC ;;8008100;8008199
AZHD ;;8008300;8008399
AZHE ;;8008050;8008059
AZHF ;;8008200;8008299
AZHG ;;8009100;8009199
AZHH ;;8007550;8007599
AZHI ;;8009600;8009609
AZHJ ;;8009000;8009099
AZHK ;;8007900;8007999
AZHL ;;8008900;8008949
AZHM ;;8008400;8008499
AZHN ;;8007800;8007899
AZHO ;;8007700;8007799
AZHP ;;8008000;8008049
AZHQ ;;8008600;8008699
AZHR ;;8009200;8009225
AZHS ;;8008800;8008899
AZHT ;;8009226;8009249
AZHV ;;8009250;8009299
AZHW ;;8007600;8007649
AZHX ;;8007500;8007549
AZHY ;;8007650;8007699
AZY ;;2600000;2699999
AZZ ;;2500000;2599999
BAR ;;90050;90059
BCH ;;90002;
BCM ;;90092;
BDE ;;90060;
BDH ;;90097;
BDM ;;9003200;9003210
BDR ;;9003220;9003225
BEN ;;90003;
BFF ;;90000;
BGU ;;90061;90070
BHA ;;90025;90034
BHL ;;90071;90079
BHP ;;90094;90096
BI ;;9002081;9002090
BMC ;;90001;
BMQ ;;90005;90024
BMR ;;90040;90049
BMX ;;90093;
BNU ;;90082;90089
BPC ;;90080;
BRB ;;90004;
BSR ;;90090;90091
BTB ;;90035;90039
BTW ;;90120;90139
BW ;;9002086;
XB ;;9888888;9888888