HLP14PRE.m

HLP14PRE ;SFIRMFO/JC - HL7 PATCH 14 PRE-INIT ;03/05/98  11:44 [ 04/02/2003   8:37 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;;1.6;HEALTH LEVEL SEVEN;**14**;Oct 13, 1995

PRE ;

 K ^DD(779.001,0,"ID")

 K ^DD(771.2,0,"ID")

 Q

POST ;

 S ^DD(779.001,0,"ID",2)="W "_""""_"   "_""""_",$P(^(0),U,2)"

 S ^DD(771.2,0,"ID",2)="W "_""""_"   "_""""_",$P(^(0),U,2)"

 Q

HLP14PRE  ;SFIRMFO/JC - HL7 PATCH 14 PRE-INIT ;03/05/98  11:44 [ 04/02/2003   8:37 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;1.6;HEALTH LEVEL SEVEN;**14**;Oct 13, 1995

PRE       ;

 +1        KILL ^DD(779.001,0,"ID")

 +2        KILL ^DD(771.2,0,"ID")

 +3        QUIT 

POST      ;

 +1        SET ^DD(779.001,0,"ID",2)="W "_""""_"   "_""""_",$P(^(0),U,2)"

 +2        SET ^DD(771.2,0,"ID",2)="W "_""""_"   "_""""_",$P(^(0),U,2)"

 +3        QUIT