HLP50PST.m

HLP50PST ;ISC-SF/RAH - HL7 PATCH 50 POST-INIT ;05/27/99  11:30 [ 04/02/2003   8:38 AM ]

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

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

PRE ;

 Q

POST ;

 S DIK="^HLMA(",DIK(1)="20^AG"

 D ENALL^DIK

 Q

HLP50PST  ;ISC-SF/RAH - HL7 PATCH 50 POST-INIT ;05/27/99  11:30 [ 04/02/2003   8:38 AM ]

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

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

PRE       ;

 +1        QUIT 

POST      ;

 +1        SET DIK="^HLMA("

           SET DIK(1)="20^AG"

 +2        DO ENALL^DIK

 +3        QUIT