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

DPTVPR.m

Go to the documentation of this file.

DPTVPR ;alb/mjk - Patient File Specific Init Driver ; 3/26/93

 ;;5.3;Patient File;;Aug 13, 1993

EN ; -- main entry point

 S XQABT3=$H

 D H^DGUTL

 S DPTIME(104)=DGTIME D H^DGUTL S DPTIME(105)=DGTIME

 D EN^DPTV53PR

ENQ Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDPTVPR   231     printed  Apr 09, 2024@21:37:43                                                                                                                                                                                                       Page 2

DPTVPR    ;alb/mjk - Patient File Specific Init Driver ; 3/26/93

 +1       ;;5.3;Patient File;;Aug 13, 1993

 +2       ;

EN        ; -- main entry point

 +1        SET XQABT3=$HOROLOG

 +2        DO H^DGUTL

 +3        SET DPTIME(104)=DGTIME

           DO H^DGUTL

           SET DPTIME(105)=DGTIME

 +4        DO EN^DPTV53PR

ENQ        QUIT