source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQFS.m

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PXQFS ;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
5CHK ;--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
Note: See TracBrowser for help on using the repository browser.