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

PXQMAIN1.m

Go to the documentation of this file. 
  1. PXQMAIN1 ;ISL/JVS - MAIN MENU ROUTINE #2 ;8/29/96  10:33
  1.  ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
  1.  ;
  1.  ;
  1.  ;
  1. ASK ;--5TH OPTION
  1.  N DFN,IEN,VISIT,ANS,I,BROKEN
  1.  ;--ASK FOR IEN OR UID
  1.  ;S (VISIT,IEN)=$$ASKNUM^PXQUTL Q:IEN<0
  1.  S (VISIT,IEN)=$$ASKNUM^PXQUTL I IEN<0 D  Q:IEN<0
  1.  .R !,"Look at a BROKER POINTER to a visit? (Y/N): N// ",ANS:DTIME
  1.  .I ANS["N"!(ANS="") Q
  1.  .R !,"Enter Visit IEN: ",ANS:DTIME
  1.  .I +ANS<1 Q
  1.  .S (VISIT,IEN)=ANS
  1.  .I '$D(^AUPNVSIT(ANS)) S BROKEN=1
  1.  I $G(IEN)'<1 S ^DISV(DUZ,"PXQREP3")="`"_$G(IEN)
  1.  ;
  1. MEN ;--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 CLOSE
  1.  I Y="D" D DEC G MEN
  1.  I Y="E" D EXP G MEN
  1.  I Y="S" D AUD G MEN
  1.  I Y="A" D ALL G MEN
  1.  G CLOSE
  1.  ;
  1.  ;
  1. DEC ;--ENTRIES POINTING TO VISIT
  1.  ;--OPEN DEVICE
  1.  S OPTION="5D"
  1.  D ZIS^PXQZIS G:POP CLOSE
  1.  ;--RESET $X,$Y TO ZERO
  1.  N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. DEC5D ;--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.  W $$EXP^PXQUTL("^AUPNVSIT(",IEN)
  1.  W $$RE^PXQUTL("     DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1.  W $$DEC^PXQFV(IEN,1,"")
  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.  ;--PRINT TO SCREEN
  1.  D READ^PXQUTL
  1.  D ^%ZISC
  1.  I $D(ZTSK) G CLOSE
  1.  E  Q
  1.  ;
  1.  ;
  1. EXP ;--EXPANDED VIEW
  1.  ;--OPEN DEVICE
  1.  S OPTION="5E"
  1.  D ZIS^PXQZIS G:POP CLOSE
  1.  ;--RESET $X,$Y TO ZERO
  1.  N DX,DY S (DX,DY)=0 X ^%ZOSF("XY")
  1. EXP5E ;--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.  W $$RE^PXQUTL("     DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1.  W $$DEC^PXQFV(IEN,1,1)
  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.  ;--PRINT TO SCREEN
  1.  D READ^PXQUTL
  1.  D ^%ZISC
  1.  I $D(ZTSK) G CLOSE
  1.  E  Q
  1.  ;
  1. AUD ;--AUDIT TRAIL AND SOURCE
  1.  N PXQAUDIT,PXQSOR
  1.  S (PXQAUDIT,PXQSOR)=1
  1.  ;--OPEN DEVICE
  1.  S OPTION="5A"
  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. AUD5A ;--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(" ")
  1.  W $$RE^PXQUTL("     DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1.  W $$DEC^PXQFV(IEN,1,1)
  1.  ;--PRINT TO SCREEN
  1.  D READ^PXQUTL
  1.  D ^%ZISC
  1.  I $D(ZTSK) G CLOSE
  1.  E  Q
  1. ALL ;--ALL OF THE ABOVE
  1.  N PXQAUDIT,PXQSOR
  1.  ;--OPEN DEVICE
  1.  S OPTION="5A"
  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. ALL5A ;--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.  S (PXQAUDIT,PXQSOR)=1
  1.  ;--GET SOURCE OF THE VISIT ENTRY
  1.  W $$SOR^PXQUTL(VISIT)
  1.  W $$RE^PXQUTL(" ")
  1.  W $$RE^PXQUTL("     DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----")
  1.  W $$DEC^PXQFV(IEN,1,1)
  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.  ;--PRINT TO DEVICE
  1.  D READ^PXQUTL
  1.  D ^%ZISC
  1.  I $D(ZTSK) G CLOSE
  1.  E  Q
  1. CLOSE ;--CLOSE DEVICE
  1.  D ^%ZISC
  1.  ;--RETURN TO MENU
  1.  Q
  1.  ;
  1. EXIT ;--EXIT
  1.  K OPTION
  1.  Q