AZHLSC1.m

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

AZHLSC1   ; IHS/ADC/GTH:KEU:JN - SAC CHAPTER 1: GENERAL PROGRAMMING STANDARDS & CONVENTIONS ;  [ 01/26/2000  2:18 PM ] [2/10/00 10:05am]

 +1       ;;5.0;AZHLSC;;JUL 10, 1996

 +2       ;

 +3        WRITE !!!,$PIECE($PIECE($TEXT(+1),";",2),"-",2)

 +4        NEW AZHLFILE,AZHLFLD,A,B

1211       DO TTL^AZHLSC("1.2.1.1,  (10.2)  File Numbers")

 +1        IF 'AZHLPIEN

               DO NPKG^AZHLSC

               QUIT 

 +2        IF '$PIECE($TEXT(@AZHLNMSP),";",3)

               WRITE !?20,"Can't check:  Unknown number space."

               QUIT 

 +3        SET %=0

           SET A=$PIECE($TEXT(@AZHLNMSP),";",3)

           SET B=$SELECT($PIECE($TEXT(@AZHLNMSP),";",4):$PIECE($TEXT(@AZHLNMSP),";",4)_".9999999",1:A_".9999999")

 +4        FOR 

               SET %=$ORDER(^DIC(9.4,AZHLPIEN,4,"B",%))

               IF '%

                   QUIT 

               IF AZHLTERM

                   WRITE "."

               IF $SELECT(%<A:1,%>B:1,1:0)

                   WRITE !?10,"File ",%," not in File Number Space ",A,"-",B,"."

 +5        QUIT 

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