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

PXQMAIN3.m

Go to the documentation of this file.
  1. PXQMAIN3 ;ISL/JVS - MAIN MENU ROUTINE #4 ;8/29/96 10:33
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
  1. ;
  1. ;
  1. ASKENC ;--6TH OPTION
  1. N DFN,IEN,VISIT,ANS,I
  1. ;--ASK FOR ENCOUNTER IEN
  1. S IEN=$$ASKENC^PXQUTL Q:IEN<0
  1. ;--CONVERT TO A VISIT
  1. S (VISIT,IEN)=$P(^SCE(IEN,0),"^",5)
  1. I IEN']"" D
  1. .W $$RE^PXQUTL(" NO VISIT IEN TO FOLLOW ")
  1. .D READ^PXQUTL
  1. Q:IEN']""
  1. ;
  1. MENENC ;--MENU FOR WHAT TO DISPLAY FOR VISIT
  1. S DIR("A")="Select a Display"
  1. S DIR(0)="SOM^D:Dependent Entry Counts;E:Expanded Views;S:Sources and Audit Trail;A:All of the Above"
  1. D ^DIR I Y=""!(Y["^") G CLOSENC
  1. I Y="D" D DECENC G MENENC
  1. I Y="E" D EXPENC G MENENC
  1. I Y="S" D AUDENC G MENENC
  1. I Y="A" D ALLENC G MENENC
  1. G CLOSENC
  1. ;
  1. DECENC ;--ENTRIES POINTING TO ENCOUNTER
  1. ;--OPEN DEVICE
  1. S OPTION="6D"
  1. D ZIS^PXQZIS G:POP EXIT
  1. ;--RESET $X,$Y TO ZERO
  1. N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. DEC6D ;--TITLE OF PRINT OUT
  1. W $$RE^PXQUTL("** D E P E N D E N T E N T R Y C O U N T **")
  1. N I S I=0 F S I=$O(^SCE("AVSIT",IEN,I)) Q:I="" D
  1. .W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT ---FOR ENCOUNTER "_I_"-----")
  1. .W $$DEC^PXQFE(I,1,"")
  1. ;W $$EXP^PXQUTL("^AUPNVSIT(",IEN)
  1. W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1. W $$DEC^PXQFV(IEN,1,"")
  1. D READ^PXQUTL
  1. D ^%ZISC
  1. I $D(ZTSK) G CLOSE
  1. E Q
  1. ;
  1. ;
  1. EXPENC ;--EXPANDED VIEW
  1. ;--OPEN DEVICE
  1. S OPTION="6E"
  1. D ZIS^PXQZIS G:POP EXIT
  1. ;--RESET $X,$Y TO ZERO
  1. N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. EXP6E ;--TITLE OF PRINT OUT
  1. W $$RE^PXQUTL("** E X P A N D E D D E P E N D E N T E N T R Y C O U N T **")
  1. N I S I=0 F S I=$O(^SCE("AVSIT",IEN,I)) Q:I="" D
  1. .W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT ---FOR ENCOUNTER "_I_"-----")
  1. .W $$DEC^PXQFE(I,1,1)
  1. D SDV^PXQUTL
  1. W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1. W $$DEC^PXQFV(IEN,1,1)
  1. ;--ENTRIES POINTING TO ENCOUNTER
  1. D READ^PXQUTL
  1. D ^%ZISC
  1. I $D(ZTSK) G CLOSE
  1. E Q
  1. ;
  1. AUDENC ;--AUDIT TRAIL AND SOURCE
  1. N PXQAUDIT,PXQSOR
  1. S (PXQAUDIT,PXQSOR)=1
  1. ;--OPEN DEVICE
  1. S OPTION="6A"
  1. D ZIS^PXQZIS G:POP EXIT
  1. ;--RESET $X,$Y TO ZERO
  1. N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. AUD6A ;--TITLE OF PRINT OUT
  1. W $$RE^PXQUTL("** S O U R C E S / A U D I T T R A I L **")
  1. ;--GET SOURCE OF THE VISIT ENTRY
  1. W $$SOR^PXQUTL(VISIT)
  1. W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1. W $$DEC^PXQFV(IEN,1,1)
  1. D READ^PXQUTL
  1. D ^%ZISC
  1. I $D(ZTSK) G CLOSE
  1. E Q
  1. ALLENC ;--ALL OF THE ABOVE
  1. N PXQAUDIT,PXQSOR
  1. S (PXQAUDIT,PXQSOR)=1
  1. ;--OPEN DEVICE
  1. S OPTION="6A"
  1. D ZIS^PXQZIS G:POP EXIT
  1. ;--RESET $X,$Y TO ZERO
  1. N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. ALL6A ;--TITLE OF PRINT OUT
  1. W $$RE^PXQUTL("**A L L S O U R C E S / A U D I T T R A I L **")
  1. ;--ENTRIES POINTING TO ENCOUNTER
  1. N I S I=0 F S I=$O(^SCE("AVSIT",IEN,I)) Q:I="" D
  1. .W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT ---FOR ENCOUNTER "_I_"-----")
  1. .W $$DEC^PXQFE(I,1,1)
  1. D SDV^PXQUTL
  1. ;--GET SOURCE OF THE VISIT ENTRY
  1. W $$SOR^PXQUTL(VISIT)
  1. W $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1. W $$DEC^PXQFV(IEN,1,1)
  1. D READ^PXQUTL
  1. D ^%ZISC
  1. I $D(ZTSK) G CLOSE
  1. E Q
  1. ;
  1. ;
  1. CLOSENC ;--CLOSE DEVICE
  1. D ^%ZISC
  1. ;--RETURN TO MENU
  1. K OPTION
  1. Q
  1. CLOSE ;--CLOSE DEVICE
  1. D ^%ZISC
  1. ;--RETURN TO MENU
  1. K OPTION
  1. Q
  1. ;
  1. EXIT ;--EXIT
  1. K OPTION
  1. Q