source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPRPST.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 625 bytes
Line 
1RGPRPST ;SLC/NCG-CIRN CMOR POPULATE 991.8 ;4-15-1998
2 ;;0.5; CLINICAL INFO RESOURCE NETWORK ;;30 Sep 98
3EN ;
4 D PCC
5 K RGI,PCC
6 Q
7PCC ;set primary care clinics into 991.8
8 N PCC,RGI,RGPCC,X,Y
9 S PCC(1)="PRIMARY CARE/MEDICINE"
10 S PCC(2)="PRIMARY CARE/SURGERY"
11 S PCC(3)="GERIATRIC PRIMARY CARE"
12 D BMES^XPDUTL("Adding Clinics to File 991.8")
13 F RGI=1:1:3 D
14 . S RGPCC=+$$FIND1^DIC(40.7,,"OX",PCC(RGI)) I RGPCC>0 D
15 . . S DIC("P")=$P(^DD(991.8,17,0),U,2),DIC(0)="ML",DLAYGO=991.817,DIC="^RGSITE(991.8,1,""PC"",",X=PCC(RGI),DA(1)=1 D ^DIC I +Y>0 S DA=+Y,DA(1)=1,DIE=DIC,DR="1///2971001" D ^DIE
16 . . K DIE,DIC,DA,DR,D0,DLAYGO
17 Q
Note: See TracBrowser for help on using the repository browser.