[628] | 1 | PXRMPARS ; SLC/PJH - Edit PXRM(800 reminder parameters. ;04/02/2007
|
---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
---|
| 3 | ;
|
---|
| 4 | ;called by protocol PXRM EDIT SITE DISCLAIMER
|
---|
| 5 | ;
|
---|
| 6 | DISC(DA) ;Edit default disclaimer
|
---|
| 7 | Q:'$$LOCK(DA)
|
---|
| 8 | N DIC,DIE,DR,Y
|
---|
| 9 | ;Edit
|
---|
| 10 | S DIC="^PXRM(800,",DIE=800,DR=2
|
---|
| 11 | D ^DIE
|
---|
| 12 | D FORMAT^PXRMDISC
|
---|
| 13 | Q
|
---|
| 14 | ;
|
---|
| 15 | MH(DA) ;Edit MH default Question Value
|
---|
| 16 | Q:'$$LOCK(DA)
|
---|
| 17 | N DIC,DIE,DR,Y
|
---|
| 18 | ;Edit
|
---|
| 19 | S DIE="^PXRM(800,",DR=17
|
---|
| 20 | D ^DIE
|
---|
| 21 | Q
|
---|
| 22 | ;
|
---|
| 23 | ;called by protocol PXRM EDIT WEB SITE
|
---|
| 24 | ;
|
---|
| 25 | WEB(DA) ;Edit default web site
|
---|
| 26 | Q:'$$LOCK(DA)
|
---|
| 27 | ;Edit
|
---|
| 28 | N DTOUT,DUOUT
|
---|
| 29 | F D Q:$D(DUOUT)!$D(DTOUT)
|
---|
| 30 | .D WLIST,WSET,WURL(DA)
|
---|
| 31 | Q
|
---|
| 32 | ;
|
---|
| 33 | WLIST ;Display web sites
|
---|
| 34 | N FIRST,SUB,SUB1
|
---|
| 35 | S FIRST=1,SUB=""
|
---|
| 36 | F S SUB=$O(^PXRM(800,DA,1,"B",SUB)) Q:SUB="" D
|
---|
| 37 | .S SUB1=0
|
---|
| 38 | .F S SUB1=$O(^PXRM(800,DA,1,"B",SUB,SUB1)) Q:'SUB1 D
|
---|
| 39 | ..I FIRST S FIRST=0 W !!,"Choose from:",!
|
---|
| 40 | ..W ?8,$P($G(^PXRM(800,DA,1,SUB1,0)),U),!
|
---|
| 41 | I FIRST W !!,"No default web sites defined",!
|
---|
| 42 | Q
|
---|
| 43 | ;
|
---|
| 44 | WSET ;Set node if not defined
|
---|
| 45 | S:'$D(^PXRM(800,DA,1,0)) ^PXRM(800,DA,1,0)="^800.04"
|
---|
| 46 | Q
|
---|
| 47 | ;
|
---|
| 48 | WURL(IEN) ;Edit individual URL
|
---|
| 49 | N DA,DIC,DIE,DR,Y
|
---|
| 50 | S DA(1)=IEN
|
---|
| 51 | S DIC="^PXRM(800,"_IEN_",1,"
|
---|
| 52 | S DIC(0)="QEAL"
|
---|
| 53 | S DIC("A")="Select URL: "
|
---|
| 54 | S DIC("P")="800.04"
|
---|
| 55 | D ^DIC I Y=-1 S DTOUT=1 Q
|
---|
| 56 | S DIE=DIC K DIC
|
---|
| 57 | S DA=+Y
|
---|
| 58 | ;Finding record fields
|
---|
| 59 | S DR=".01;.02;1"
|
---|
| 60 | ;Edit finding record
|
---|
| 61 | D ^DIE
|
---|
| 62 | I $D(Y) S DTOUT=1 Q
|
---|
| 63 | ;Check if deleted
|
---|
| 64 | I '$D(DA) Q
|
---|
| 65 | Q
|
---|
| 66 | ;
|
---|
| 67 | LOCK(DA) ;Lock the record
|
---|
| 68 | L +^PXRM(800,DA):0 I Q 1
|
---|
| 69 | E W !!,?5,"Another user is editing this file, try later" H 2 Q 0
|
---|
| 70 | ;
|
---|
| 71 | UNLOCK(DA) ;Unlock the record
|
---|
| 72 | L -^PXRM(800,DA)
|
---|
| 73 | Q
|
---|