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

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1DGPFPARM ;ALB/RPM - PRF PARAMETER FILE EDIT ; 5/5/05 12:27pm
2 ;;5.3;Registration;**425,554**;Aug 13, 1993
3 ;
4 Q ;no direct entry
5 ;
6EN ;
7 N DA,DD,DO,DIC,DIE,DINUM,DR,X,Y
8 ;
9 W !!,"Patient Record Flag Parameter Enter/Edit"
10 I '$D(^DGPF(26.18,1,0)) D
11 .W !,"You do not have an entry in your parameter file!!"
12 .W !,"Creating a new entry in the PRF PARAMETER (#26.18) file... ",!
13 .S DIC="^DGPF(26.18,",DIC(0)="",X=1,DINUM=1
14 .K DD,DO D FILE^DICN W " done."
15 .K %,DA,DIC,DIE,X,Y
16 ;
17 S DIE="^DGPF(26.18,",DA=1,DR="2;3" D ^DIE
18 K DIE,DR,DA
19 Q
20 ;
21ON() ;Used to determine if the PRF software is 'active'.
22 ;
23 ; Input: None
24 ;
25 ;Output:
26 ; Function Value - 1 = 'Active', 0 = 'Not Active'
27 ;
28 ; - init variables
29 N DGACT,RESULT
30 S RESULT=0
31 ;
32 ;- get software activation date from PRF PARAMETERS (#26.18) file
33 S DGACT=+$P($G(^DGPF(26.18,1,0)),U,2)
34 ;
35 ; - check if activation is past current date
36 D
37 .Q:('DGACT)!(DT<DGACT)
38 .S RESULT=1
39 ;
40 Q RESULT
41 ;
42ORUON() ;Used to determine if ORU~R01 HL7 interface is 'enabled'.
43 ;
44 ;This function verifies that the PRF software is active and then
45 ;returns the state of the Unsolicited Observation Update HL7 inteface
46 ;in the PRF PARAMETERS (#26.18) file.
47 ;
48 ; Input:
49 ; none
50 ;
51 ; Output:
52 ; Function value - 1 if interface is enabled, 0 if interface is
53 ; disabled
54 ;
55 Q:'$$ON() 0
56 Q +$P($G(^DGPF(26.18,1,0)),U,3)
57 ;
58QRYON() ;Used to determine if QRY~R02 HL7 interface is 'enabled'.
59 ;
60 ;This function verifies that the PRF software is active and then
61 ;returns the state of the QRY HL7 inteface in the PRF PARAMETERS
62 ;(#26.18) file.
63 ;
64 ; Input:
65 ; none
66 ;
67 ; Output:
68 ; Function value - 0 if interface is disabled, 1 if interface is
69 ; enabled in 'direct' mode, 2 if interface is
70 ; enabled in 'deferred' mode.
71 ;
72 Q:'$$ON() 0
73 Q +$P($G(^DGPF(26.18,1,0)),U,4)
74 ;
75P2ON() ;Used to determine if the PRF Phase 2 software is 'active'.
76 ;
77 ; Supported References:
78 ; DBIA #4440 KERNEL SYSTEM PARAMETERS (PROD^XUPROD())
79 ;
80 ; Input: None
81 ;
82 ; Output:
83 ; Function Value - 1 = 'Active', 0 = 'Not Active'
84 ;
85 N DGACT ;activation date
86 N DGRESULT ;function value
87 ;
88 S DGRESULT=0
89 ;
90 ;- get software activation date from PRF PARAMETERS (#26.18) file
91 S DGACT=+$P($G(^DGPF(26.18,1,0)),U,7)
92 ;
93 ;- check if activation is past current date in production
94 I $$PROD^XUPROD() D ;production account
95 . Q:('DGACT)!(DT<DGACT)
96 . S DGRESULT=1
97 E S DGRESULT=1 ;test account: always 'active'
98 ;
99 Q DGRESULT
Note: See TracBrowser for help on using the repository browser.