source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRPUTL.m

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1LBRPUTL ;SFISC/JSR- LBR UTIL2;04/08/99 15:12 [ 05/12/2000 4:31 PM ]
2 ;;2.5;Library;**8**;Mar 11, 2000
3 Q
4NEWCP(XPD,XPDC,XPDP) ;create new check point, returns 0=error or ien
5 ;XPD=name, XPDC=call back, XPDP=parameters
6 Q:$G(XPD)="" 0
7 N %,XPDI,XPDJ,XPDF,XPDY
8 ;XPDCP="INI"=Pre-init, "INIT"=Post-init
9 S XPDI=$S(XPDCP="INIT":9.716,1:9.713)
10 S %=$$FIND1^DIC(XPDI,","_XPDA_",","X",XPD) Q:% %
11 S XPDF="+1,"_XPDA_",",XPDJ(XPDI,XPDF,.01)=XPD
12 S:$D(XPDC) XPDJ(XPDI,XPDF,2)=XPDC
13 S:$D(XPDP) XPDJ(XPDI,XPDF,3)=XPDP
14 D UPDATE^DIE("","XPDJ","XPDY")
15 Q $G(XPDY(1))
16 ;
17UPCP(XPD,XPDP) ;update check point, returns 0=error or ien
18 ;XPD=name, XPDP=parameters
19 N XPDI,XPDJ,XPDF,XPDY
20 ;XPDCP="INI"=Pre-init, "INIT"=Post-init
21 S XPDI=$S(XPDCP="INIT":9.716,1:9.713),XPDY=$$DICCP($G(XPD))
22 Q:'XPDY 0
23 S XPDF=XPDY_","_XPDA_","
24 S:$D(XPDP) XPDJ(XPDI,XPDF,3)=XPDP
25 D FILE^DIE("","XPDJ")
26 Q XPDY
27 ;
28COMCP(XPD) ;complete check point, returns 0=error or date/time
29 ;XPD=name
30 N XPDD,XPDI,XPDJ,XPDY
31 S XPDD=$$NOW^XLFDT()
32 S $P(^XTMP("LBRY",LBRVSTA,XPD),"^",2)=XPDD
33 Q XPDD
34 ;
35VERCP(XPD) ;verify check point, returns 1=completed, 0=not
36 ;-1=doesn't exist
37 ;XPD=name
38 N XPDI,XPDY
39 S XPDI=$S(XPDCP="INIT":9.716,1:9.713),XPDY=$$DICCP($G(XPD))
40 Q:'XPDY -1
41 Q ''$$GET1^DIQ(XPDI,XPDY_","_XPDA_",",1,"I")
42 ;
43PARCP(XPD,XPDF) ;returns parameters of check point
44 ;
45 ; Quit with the data value to set into the variable
46 Q $P($G(^XTMP("LBRY",LBRVSTA,XPDF)),"^",1)
47 ;
48CURCP(XPDF) ;returns current check point
49 ;XPDF flag - 0=externel, 1=internal
50 Q $S($G(XPDF):XPDCHECK,1:XPDCHECK(0))
51 ;
52DICCP(X) ;lookup check point, returns ien or 0
53 Q:$G(X)="" 0
54 ;if they pass ien, fail if can't find
55 I X=+X S Y=X Q:'$D(^JSR(9.7,XPDA,XPDCP,Y,0)) 0
56 E S Y=$$FIND1^DIC(XPDI,","_XPDA_",","X",X)
57 Q Y
58MES(X) ;record message, X=message or an array passed by reference
59 N %
60 I $D(X)#2 S %=X K X S X(1)=%
61 ;write message
62 F %=1:1 Q:'$D(X(%)) W !,X(%)
63 Q:'$G(XPDA) D WP^DIE(9.7,XPDA_",",20,"A","X")
64 Q
65BMES(X) ;add blank line before message
66 N %
67 I $D(X)#2 S %=X K X S X(1)=" ",X(2)=%
68 D MES(.X)
69 Q
70 ;
Note: See TracBrowser for help on using the repository browser.