source: ESIG/trunk/VWESIG.m

Last change on this file was 1654, checked in by Jim B., 10 years ago
File size: 1.1 KB
RevLine 
[1654]1VWESIG ;;Jim Bell - E-Signature Utility March 1, 2015 @17:43
2 ;;1.0;;**WVEHR LOCAL**;;Build 26
3 ;Copyright 2015 Jim Bell. Licensed under the terms of the GNU
4 ;This routine utility is for New Person file specific fields
5 ;
6 Q
7 ;
8INR() Q $O(RESULT(" "),-1)+1
9 ;
10BEGIN(RESULT) ;
11 K RESULT
12 ;S RESULT($$INR)="<Hidden>"
13 S RESULT($$INR)=$P(^VA(200,DUZ,20),"^",4)
14 S RESULT($$INR)=$P($G(^VA(200,DUZ,0)),"^",2)
15 S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",2)
16 S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",3)
17 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",2)
18 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",7)
19 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",8)
20 Q
21 ;
22ESIG(RESULT,DATA) ;
23 ;S RESULT(0)="RECEIVED: "_DATA
24 S ^XTMP("ESIG",$J)=DATA
25 I $L($P(DATA,"^")) D
26EP1 . L +^VA(200,DUZ):1 G EP1:'$T
27 . S DA=DUZ,(DIC,DIE)="^VA(200,"
28 . S DR="20.4///@"
29 . D ^DIE
30 . L -^VA(200,DUZ)
31 K DR S DR="",(DIC,DIE)="^VA(200,",DA=DUZ
32 S FLDS="20.4,1,20.2,20.3,.132,.137,.138"
33 F I=1:1:$L(FLDS,",") S:$L($P(DATA,"^",I)) DR=DR_$P(FLDS,",",I)_"///"_$P(DATA,"^",I)_";"
34 S DR=$E(DR,1,$L(DR)-1)
35ESL L +^VA(200,DUZ):1 G ESL:'$T D ^DIE L -^VA(200,DUZ)
36 S RESULT(0)="Filed..."
37 Q
38 ;
39
Note: See TracBrowser for help on using the repository browser.