PXQFS ;ISL/JVS - PARAMETERS SET UP OPTION ;8/29/96 10:31
;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
;
Q
CHK ;--CHECK OUT THE PARAMETERS FILE
N PXQID
W $$RE^PXQUTL("~~~~~~~~~~ E R R O R S ~~~~~~~~~~~~~")
I '$D(^PX(815)) W $$RE^PXQUTL("** PCE PARAMETER FILE # 815 DOESN'T EXSIST YET **") Q
I '$D(^PX(815,1)) W $$RE^PXQUTL("** PCE PARAMETER FILE #815 CONTAINS NO ENTRIES **") Q
I '$P($G(^PX(815,1,0)),"^",2) W $$RE^PXQUTL("** NO SD/PCE SWITCH OVER DATE --PCE PARAMETERS FILE **")
I '$P($G(^PX(815,1,0)),"^",3) W $$RE^PXQUTL("** NO HEALTH SUMMARY START DATE --PCE PARAMETERS FILE **")
I '$D(^PX(815,1,"DHL",1)) W $$RE^PXQUTL("** NO DISPOSITION CLINIC --PCE PARAMETERS FILE **")
I '$P($G(^DIC(150.9,1,4)),"^",2) W $$RE^PXQUTL("** MISSING SITE PIECE OF THE VISIT UID --VISIT TRACKING PARAMETERS FILE **")
S PXQID=$$PKGON^VSIT("PX") D
.I PXQID=0 W $$RE^PXQUTL("** PCE PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
.I PXQID=-1 W $$RE^PXQUTL("** PCE PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
S PXQID=$$PKGON^VSIT("SD") D
.I PXQID=0 W $$RE^PXQUTL("** SCHEDULING PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
.I PXQID=-1 W $$RE^PXQUTL("** SCHEDULING PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
W $$RE^PXQUTL(" ")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXQFS 1310 printed Oct 16, 2024@18:30:38 Page 2
PXQFS ;ISL/JVS - PARAMETERS SET UP OPTION ;8/29/96 10:31
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
+2 ;
+3 QUIT
CHK ;--CHECK OUT THE PARAMETERS FILE
+1 NEW PXQID
+2 WRITE $$RE^PXQUTL("~~~~~~~~~~ E R R O R S ~~~~~~~~~~~~~")
+3 IF '$DATA(^PX(815))
WRITE $$RE^PXQUTL("** PCE PARAMETER FILE # 815 DOESN'T EXSIST YET **")
QUIT
+4 IF '$DATA(^PX(815,1))
WRITE $$RE^PXQUTL("** PCE PARAMETER FILE #815 CONTAINS NO ENTRIES **")
QUIT
+5 IF '$PIECE($GET(^PX(815,1,0)),"^",2)
WRITE $$RE^PXQUTL("** NO SD/PCE SWITCH OVER DATE --PCE PARAMETERS FILE **")
+6 IF '$PIECE($GET(^PX(815,1,0)),"^",3)
WRITE $$RE^PXQUTL("** NO HEALTH SUMMARY START DATE --PCE PARAMETERS FILE **")
+7 IF '$DATA(^PX(815,1,"DHL",1))
WRITE $$RE^PXQUTL("** NO DISPOSITION CLINIC --PCE PARAMETERS FILE **")
+8 IF '$PIECE($GET(^DIC(150.9,1,4)),"^",2)
WRITE $$RE^PXQUTL("** MISSING SITE PIECE OF THE VISIT UID --VISIT TRACKING PARAMETERS FILE **")
+9 SET PXQID=$$PKGON^VSIT("PX")
Begin DoDot:1
+10 IF PXQID=0
WRITE $$RE^PXQUTL("** PCE PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
+11 IF PXQID=-1
WRITE $$RE^PXQUTL("** PCE PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
End DoDot:1
+12 SET PXQID=$$PKGON^VSIT("SD")
Begin DoDot:1
+13 IF PXQID=0
WRITE $$RE^PXQUTL("** SCHEDULING PACKAGE IS TURNED OFF --VISIT TRACKING PARAMETERS FILE **")
+14 IF PXQID=-1
WRITE $$RE^PXQUTL("** SCHEDULING PACKAGE NOT FOUND IN VISIT TRACKING PARAMETERS FILE **")
End DoDot:1
+15 WRITE $$RE^PXQUTL(" ")
+16 QUIT
