[613] | 1 | DGPTFM71 ;ALB/MJK - Display Phys. MPCR mvts ; 12/12/06 11:49am
|
---|
| 2 | ;;5.3;Registration;**729**;Aug 13, 1993;Build 59
|
---|
| 3 | ;
|
---|
| 4 | EN ; -- 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
|
---|
| 13 | ENQ K DGPR,HEAD,DFN,DGPTFMT,DGVI,DGVO,DGBRCH,PTF,DIC,DGPTF0,DGBLK Q
|
---|
| 14 | ;
|
---|
| 15 | OPT 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
|
---|
| 28 | OPTQ D KILL^DGPTFM7 Q
|
---|
| 29 | ;
|
---|