source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTFM71.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1DGPTFM71 ;ALB/MJK - Display Phys. MPCR mvts ; 12/12/06 11:49am
2 ;;5.3;Registration;**729**;Aug 13, 1993;Build 59
3 ;
4EN ; -- entry point for MPCR display option
5 W ! S DIC="^DGPT(",DIC(0)="AEMZQ",DIC("S")="I '$P(^(0),U,4),$P(^(0),U,11)=1" D ^DIC K DIC
6 G ENQ:+Y<0 S DGPTF0=Y(0),PTF=+Y,DFN=+Y(0) D UPDT^DGPTUTL:'$P(Y(0),U,6)
7 S Y=$S($D(^DGPT(PTF,70)):+^(70),1:"") D FMT^DGPTUTL
8 S DGPR="",DGBRCH="OPT^DGPTFM71" K DGBLK S $P(DGBLK," ",80)=""
9 S X=$S($D(^DPT(DFN,0)):^(0),1:""),HEAD=$E($P(X,U)_" ("_$E($P(X,U,9),6,10)_")"_DGBLK,1,30)_"Adm: ",Y=$P(DGPTF0,U,2) X ^DD("DD") S HEAD=HEAD_Y_" to " S Y=$S($D(^DGPT(PTF,70)):+^(70),1:"") S:'Y Y="Present" X:Y ^DD("DD") S HEAD=HEAD_Y_" "
10 ;S X="IORVON;IORVOFF" D ENDR^%ZISS S DGVI=IORVON,DGVO=IORVOFF K IORVON,IORVOFF
11 S (DGVI,DGVO)=""""""
12 D EN^DGPTFM7 G EN
13ENQ K DGPR,HEAD,DFN,DGPTFMT,DGVI,DGVO,DGBRCH,PTF,DIC,DGPTF0,DGBLK Q
14 ;
15OPT I DGC'<DGTOT W !,"Enter <RET> to stop"
16 I DGC<DGTOT W !,"Enter <RET> to display more MPCR information"
17 I DGC>DGMAX W:$X>40 !?2 W " or 'B' to display from beginning"
18 W ": <RET>// " R X:DTIME
19 I '$T!(X="^") G OPTQ
20 I X="" G LOOP^DGPTFM7:DGC<DGTOT,OPTQ
21 I DGC>DGMAX,X="B" S (DGC,DGLDT)=0 G LOOP^DGPTFM7
22 W !
23 I DGC<DGTOT W !,"Press return to see more MPCR information"
24 I DGC'<DGTOT W !,"Press return to stop the display"
25 I DGC>DGMAX W !,"Enter 'B' to display table from beginning again"
26 W !," '^' to stop the display",!
27 G OPT
28OPTQ D KILL^DGPTFM7 Q
29 ;
Note: See TracBrowser for help on using the repository browser.