| [613] | 1 | DGPMV301 ;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 | ;
|
|---|
| 6 | NEW ;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
|
|---|
