source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPMV301.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DGPMV301 ;ALB/MIR - ENTER TRANSACTION INFORMATION; 8 MAY 89 ;5/8/91 08:08
2 ;;5.3;Registration;**34,271**;Aug 13, 1993
3 ;
4 ; This is the continuation of DGPMV3
5 ;
6NEW ;Entry point to add a new entry to ^DGPM
7 ;INPUT: DGPM0ND=0 node of new entry.
8 ;OUTPUT: Y=IFN of new entry created
9 ;
10 ;X is set to the date/time from +DGPM0ND
11 N DGMVTYPE
12 K DINUM I '$D(DGNOW) D NOW^%DTC S DGNOW=% K %
13 S DGMVTYPE=$P(DGPM0ND,"^",2)
14 I "^3^5^"[("^"_DGMVTYPE_"^") S ^UTILITY("DGPM",$J,$S(DGMVTYPE=3:1,1:4),+$P(DGPM0ND,"^",14),"P")=$G(^DGPM(+$P(DGPM0ND,"^",14),0)) ; have to catch change in 17th piece for ev driver
15 S X=+DGPM0ND,(DIK,DIC)="^DGPM(",DIC(0)="L" K DD,DO D FILE^DICN S DGX=Y I "^1^4^"[("^"_$P(DGPM0ND,"^",2)_"^") S $P(DGPM0ND,"^",14)=+Y
16 S DA=+Y L +^DGPM(+Y) S ^DGPM(+Y,0)=DGPM0ND,^("USR")=DUZ_"^"_DGNOW
17 D
18 .N DGX ;Preserve DGX Variable for L - Statement
19 .D IX1^DIK
20 L -^DGPM(+DGX)
21 S Y=DGX K DGX
22 I "^3^5^"[("^"_DGMVTYPE_"^") S ^UTILITY("DGPM",$J,$S(DGMVTYPE=3:1,1:4),+$P(DGPM0ND,"^",14),"A")=$G(^DGPM(+$P(DGPM0ND,"^",14),0)) ; have to catch change in 17th piece for ev driver
23 Q
Note: See TracBrowser for help on using the repository browser.