| [613] | 1 | PXQFS ;ISL/JVS - PARAMETERS SET UP OPTION ;8/29/96 10:31
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | CHK ;--CHECK OUT THE PARAMETERS FILE
|
|---|
| 6 | N PXQID
|
|---|
| 7 | W $$RE^PXQUTL("~~~~~~~~~~ E R R O R S ~~~~~~~~~~~~~")
|
|---|
| 8 | I '$D(^PX(815)) W $$RE^PXQUTL("** PCE PARAMETER FILE # 815 DOESN'T EXSIST YET **") Q
|
|---|
| 9 | I '$D(^PX(815,1)) W $$RE^PXQUTL("** PCE PARAMETER FILE #815 CONTAINS NO ENTRIES **") Q
|
|---|
| 10 | I '$P($G(^PX(815,1,0)),"^",2) W $$RE^PXQUTL("** NO SD/PCE SWITCH OVER DATE --PCE PARAMETERS FILE **")
|
|---|
| 11 | I '$P($G(^PX(815,1,0)),"^",3) W $$RE^PXQUTL("** NO HEALTH SUMMARY START DATE --PCE PARAMETERS FILE **")
|
|---|
| 12 | I '$D(^PX(815,1,"DHL",1)) W $$RE^PXQUTL("** NO DISPOSITION CLINIC --PCE PARAMETERS FILE **")
|
|---|
| 13 | I '$P($G(^DIC(150.9,1,4)),"^",2) W $$RE^PXQUTL("** MISSING SITE PIECE OF THE VISIT UID --VISIT TRACKING PARAMETERS FILE **")
|
|---|
| 14 | S PXQID=$$PKGON^VSIT("PX") D
|
|---|
| 15 | .I PXQID=0 W $$RE^PXQUTL("** PCE PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
|
|---|
| 16 | .I PXQID=-1 W $$RE^PXQUTL("** PCE PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
|
|---|
| 17 | S PXQID=$$PKGON^VSIT("SD") D
|
|---|
| 18 | .I PXQID=0 W $$RE^PXQUTL("** SCHEDULING PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
|
|---|
| 19 | .I PXQID=-1 W $$RE^PXQUTL("** SCHEDULING PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
|
|---|
| 20 | W $$RE^PXQUTL(" ")
|
|---|
| 21 | Q
|
|---|
