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

HLP14PRE.m

Go to the documentation of this file.

HLP14PRE ;SFIRMFO/JC - HL7 PATCH 14 PRE-INIT ;03/05/98  11:44

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

PRE ;

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

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

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)"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLP14PRE   303     printed  Nov 22, 2024@17:09:37                                                                                                                                                                                                     Page 2

HLP14PRE  ;SFIRMFO/JC - HL7 PATCH 14 PRE-INIT ;03/05/98  11:44

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