| 1 | DGPFPARM ;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 | ;
|
|---|
| 6 | EN ;
|
|---|
| 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 | ;
|
|---|
| 21 | ON() ;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 | ;
|
|---|
| 42 | ORUON() ;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 | ;
|
|---|
| 58 | QRYON() ;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 | ;
|
|---|
| 75 | P2ON() ;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
|
|---|
