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

VAQPRE39.m

Go to the documentation of this file.

VAQPRE39 ;FO-OAKLAND/GMB - Pre-init ;09/16/96  9:44 AM

 ;;1.5;PATIENT DATA EXCHANGE;**39**;NOV 17, 1993

ENTER ;

 D DELIX^DDMOD(394.61,.01,2)

 I $D(^DD(394.61,.01,1,2)) K ^DD(394.61,.01,1,2),^DD(394.86,10,5)

 D DELIX^DDMOD(394.62,.01,2)

 I $D(^DD(394.62,.01,1,2)) K ^DD(394.62,.01,1,2),^DD(394.86,20,5)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQPRE39   313     printed  Dec 13, 2024@02:26:14                                                                                                                                                                                                     Page 2

VAQPRE39  ;FO-OAKLAND/GMB - Pre-init ;09/16/96  9:44 AM

 +1       ;;1.5;PATIENT DATA EXCHANGE;**39**;NOV 17, 1993

ENTER     ;

 +1        DO DELIX^DDMOD(394.61,.01,2)

 +2        IF $DATA(^DD(394.61,.01,1,2))

               KILL ^DD(394.61,.01,1,2),^DD(394.86,10,5)

 +3        DO DELIX^DDMOD(394.62,.01,2)

 +4        IF $DATA(^DD(394.62,.01,1,2))

               KILL ^DD(394.62,.01,1,2),^DD(394.86,20,5)

 +5        QUIT