Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: HLP50PST

HLP50PST.m

Go to the documentation of this file.

HLP50PST ;ISC-SF/RAH - HL7 PATCH 50 POST-INIT ;05/27/99  11:30

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

PRE ;

POST ;

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

 D ENALL^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP50PST   180     printed  Dec 13, 2024@01:59:32                                                                                                                                                                                                     Page 2

HLP50PST  ;ISC-SF/RAH - HL7 PATCH 50 POST-INIT ;05/27/99  11:30

 +1       ;;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