| [613] | 1 | MCPREDT ;HIRMFO/JCC-ENTER/EDIT PROCEDURE/SUBSPECIALTY ;8/19/96 09:21
|
|---|
| 2 | ;;2.3;Medicine;**8**;09/13/1996
|
|---|
| 3 | EN ;
|
|---|
| 4 | S DIC="^MCAR(697.2,",DLAYGO=697.2,DIC(0)="AEQLM",DIC("S")="I $P(^(0),U,4)=""GEN"",$P(^(0),U,19)" D ^DIC G EXIT:Y<0
|
|---|
| 5 | S DIE=DIC,DA=+Y S DR="[MCBUILDGENERIC]" K DIC,DLAYGO D ^DIE
|
|---|
| 6 | I $$GET1^DIQ(697.2,DA,3,"I")="GEN" S DIE="^MCAR(697.2,",DR="12////MCKEYGEN" D ^DIE ;MC*2.3*8
|
|---|
| 7 | S MCARDA=DA
|
|---|
| 8 | S DIC="^MCAR(690.2,",DLAYGO=690.2,DIC(0)="QL",X="Brief Generic" D ^DIC G NEXT:Y<0
|
|---|
| 9 | S MCARIEN=+$O(^MCAR(690.2,+Y,3,"B",MCARDA,0)) I MCARIEN G NEXT
|
|---|
| 10 | S DIC="^MCAR(690.2,"_+Y_",3,",DIC("P")=$$GET1^DID(690.2,4,"","SPECIFIER"),DIC(0)="L",D0=+Y,DA(1)=+Y,X=MCARDA
|
|---|
| 11 | K DD,DO,DINUM D FILE^DICN
|
|---|
| 12 | NEXT S DIC="^MCAR(690.2,",DLAYGO=690.2,DIC(0)="QL",X="Full Generic" D ^DIC G EXIT:Y<0
|
|---|
| 13 | S MCARIEN=+$O(^MCAR(690.2,+Y,3,"B",MCARDA,0)) I MCARIEN G EXIT
|
|---|
| 14 | S DIC="^MCAR(690.2,"_+Y_",3,",DIC("P")=$$GET1^DID(690.2,4,"","SPECIFIER"),DIC(0)="L",D0=+Y,DA(1)=+Y,X=MCARDA
|
|---|
| 15 | K DD,DO,DINUM D FILE^DICN
|
|---|
| 16 | EXIT K D0,DIC,DLAYGO,DIE,DA,DR,MCARDA,MCARIEN
|
|---|
| 17 | Q
|
|---|
