Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXQUTL2

PXQUTL2.m

Go to the documentation of this file.
  1. PXQUTL2 ;ISL/JVS - Utility routine ;5/1/97 08:46
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**4,29**;Aug 12, 1996
  1. ;
  1. ;
  1. Q
  1. EN1 ;--ENTRY POINT
  1. S PXQ=PXQFORM
  1. I FLENUM=9000010,PXQFORM[.01 S PXQ=".01;.22"
  1. I FLENUM=409.68,PXQFORM[.01 S PXQ=".01;.04;.08"
  1. D GETS^DIQ(FLENUM,VISIT_",",PXQ,"EN","PXQDATA","PXQDATA")
  1. D PRINT^PXQUTL1
  1. K PXQDATA
  1. Q
  1. DATE ;--DATE RANGE
  1. W !
  1. N X,Y,DIR
  1. I $D(^DISV(DUZ,"PXQUTL2-START")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-START"))
  1. S DIR("A")="Enter Starting Date (eg. T-4) : "
  1. S DIR(0)="DAO" D ^DIR
  1. I X["^" Q
  1. S PXQSTART=$G(Y)
  1. S ^DISV(DUZ,"PXQUTL2-START")=$G(Y(0))
  1. I $D(^DISV(DUZ,"PXQUTL2-END")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-END"))
  1. S DIR("A")="Enter Ending Date : "
  1. S DIR(0)="DAO" D ^DIR
  1. I X["^" Q
  1. S PXQEND=$G(Y)
  1. S ^DISV(DUZ,"PXQUTL2-END")=$G(Y(0))
  1. I PXQSTART>PXQEND W !,"Starting Date cannot be before Ending date" G DATE
  1. Q
  1. N Y,X,DIR
  1. S DIR("A")="OPTION"
  1. S DIR(0)="SOM^D:Dependent Entry Count;EX:Expanded D.E.C.;I:Internal View of Visits;S:Source;V:Visit Ien;E:Encounter Ien;P:Parameter Setups;M:Maximum Global Lengths;PA:Patient/IHS & Location files;U:User's Visit Review;C:Cross-references repair"
  1. D ^DIR
  1. I Y="D" N PXQRECI S PXQRECI=0 D DEPEN^PXQMAIN G MENU
  1. I Y="EX" N PXQRECI S PXQRECI=0 D EXPAND^PXQMAIN G MENU
  1. I Y="I" N PXQRECI S PXQRECI=0 D INTER^PXQMAIN G MENU
  1. I Y="S" N PXQRECI S PXQRECI=0 D SOURCE^PXQMAIN G MENU
  1. I Y="V" N PXQRECI S PXQRECI=0 D ASK^PXQMAIN1 G MENU
  1. I Y="E" N PXQRECI S PXQRECI=0 D ASKENC^PXQMAIN3 G MENU
  1. I Y="P" N PXQRECI S PXQRECI=0 D SETUP^PXQMAIN G MENU
  1. I Y="M" N PXQRECI S PXQRECI=0 D MAX^PXQMAIN G MENU
  1. I Y="PA" N PXQRECI S PXQRECI=0 D MENU^PXQMAIN2 G MENU
  1. I Y="U" K DIR,Y,X D REPT^PXQMAIN4 K DIR,X,Y G MENU
  1. I Y="C" K DIR,Y,X D T^PXQUTL3 K Y G MENU
  1. E K DIR Q