|
Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
625 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | RGPRPST ;SLC/NCG-CIRN CMOR POPULATE 991.8 ;4-15-1998
|
|---|
| 2 | ;;0.5; CLINICAL INFO RESOURCE NETWORK ;;30 Sep 98
|
|---|
| 3 | EN ;
|
|---|
| 4 | D PCC
|
|---|
| 5 | K RGI,PCC
|
|---|
| 6 | Q
|
|---|
| 7 | PCC ;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.
