source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS08.m@ 619

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

initial load of WorldVistAEHR

File size: 594 bytes
Line 
1MCPOS08 ;HIRMFO/DAD-PUT CARDIOLOGY CODE INTO MULT IN 695 ;4/26/96 14:51
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCD0,MCDATA,DD,DIC,DINUM,DO
5 ;
6 S MCDATA(1)=""
7 S MCDATA(2)="Adding the cardiology code to the Medical Package Use"
8 S MCDATA(3)="multiple in the Medication file (#695)"
9 D MES^XPDUTL(.MCDATA)
10 ;
11 I $D(^MCAR(695,"C")) Q
12 ;
13 S MCD0=0
14 F S MCD0=$O(^MCAR(695,MCD0)) Q:MCD0'>0 D
15 . I $O(^MCAR(695,"C","C",MCD0,0)) Q
16 . K DD,DIC,DINUM,DO
17 . S DIC="^MCAR(695,"_MCD0_",1,",DIC(0)="L"
18 . S DIC("P")=$$GET1^DID(695,1,"","SPECIFIER")
19 . S DLAYGO=695,(D0,DA(1))=MCD0,X="C"
20 . D FILE^DICN
21 . Q
22 Q
Note: See TracBrowser for help on using the repository browser.