| [613] | 1 | DGPTF41 ;ALB/JDS - PTF ENTRY/EDIT-4 ; 11/15/06 8:37am
|
|---|
| 2 | ;;5.3;Registration;**64,635,729**;Aug 13, 1993;Build 59
|
|---|
| 3 | ;
|
|---|
| 4 | ACT ; -- 701 actions
|
|---|
| 5 | G ACT1:DGST
|
|---|
| 6 | S DGCFL=0 I $D(DGCST),DGCST<2,'DGCST!$G(DGREL) S DGCFL=1
|
|---|
| 7 | W !," PTF ",$J("#"_PTF,7),?15,"actions: 1=Edit C=Close ^N=Another Screen",!
|
|---|
| 8 | I DGCFL W "CENSUS ",$S(DGCI:$J("#"_DGCI,7),1:" record"),?15,"actions: ",$S(DGCST=1:"P=Open E=Release",1:" L=Close")
|
|---|
| 9 | S Z="^CLOSE^1 Edit"
|
|---|
| 10 | I DGCFL S Z=Z_"^"_$S(DGCST=1:"P Open Census^E Release Census",1:"L Close for Census")
|
|---|
| 11 | W !?15," ^=Abort <RET> to Continue: "
|
|---|
| 12 | D READ
|
|---|
| 13 | ;
|
|---|
| 14 | I X="^"!(X="") G Q^DGPTF
|
|---|
| 15 | I DGCFL,DGCST=1,$E(X)="P"!($E(X)="E") G ACT^DGPTC1
|
|---|
| 16 | I DGCFL,'DGCST,$E(X)="L" G ACT^DGPTC1
|
|---|
| 17 | I X?1"^".E S DGPTSCRN=701 G ^DGPTFJ
|
|---|
| 18 | I X?1"C".E,'DGN G CLS^DGPTF4
|
|---|
| 19 | I X="O" G O^DGPTF4
|
|---|
| 20 | I X="R",DGN G REL
|
|---|
| 21 | I X'=1 D HELP G EN1^DGPTF4
|
|---|
| 22 | S DR="[DG701]",DIE="^DGPT(",(DGPTF,DA)=PTF D ^DIE
|
|---|
| 23 | F I=0,70 S B(I)="" S:$D(^DGPT(PTF,I)) B(I)=^(I)
|
|---|
| 24 | K DGPTF,DR
|
|---|
| 25 | G EN1^DGPTF4
|
|---|
| 26 | ;
|
|---|
| 27 | READ ; -- read X
|
|---|
| 28 | R X:DTIME S:'$T X="^",DGPTOUT="" D IN^DGHELP
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | HELP ;
|
|---|
| 32 | W !,"Enter '1' to edit Principal & Admit Diagnosis"
|
|---|
| 33 | W !," 'C' to close out PTF record"
|
|---|
| 34 | I DGCFL W:DGCST=1 !," 'P' to re-open a Census record",!," 'E' to release a Census record" W:'DGCST !," 'L' to close for Census"
|
|---|
| 35 | W !," '^' to stop the display"
|
|---|
| 36 | W !," '^N' to jump to screen #N (appears in upper right of screen '<N>')"
|
|---|
| 37 | W !," <RET> to continue on to the next screen"
|
|---|
| 38 | R !!,"Enter <RET> to continue: ",XS:DTIME
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | ACT1 ;
|
|---|
| 42 | W !," PTF ",$J("#"_PTF,7),?15,"actions: O=Open R=Release ^N=Another Screen",!
|
|---|
| 43 | I $D(DGCST),DGCST=1 W "CENSUS ",$J("#"_DGCI,7),?15,"action : E=Release"
|
|---|
| 44 | W !?15," ^=Abort <RET> to continue: "
|
|---|
| 45 | S Z="^OPEN^RELEASE PTF^E RELEASE CENSUS"
|
|---|
| 46 | D READ
|
|---|
| 47 | I $D(DGCST),DGCST=1,$E(X)="E" G ACT^DGPTC1
|
|---|
| 48 | I X=""!(X=U) G Q^DGPTF
|
|---|
| 49 | I X?1"^".E S DGPTSCRN=701 G ^DGPTFJ
|
|---|
| 50 | I X="O" G O^DGPTF4
|
|---|
| 51 | I X="R" G REL
|
|---|
| 52 | ;
|
|---|
| 53 | W !,"Enter 'O' to re-open a PTF record"
|
|---|
| 54 | W !," 'R' to release a PTF record"
|
|---|
| 55 | I $D(DGCST),DGCST=1 W !," 'E' to release a Census record"
|
|---|
| 56 | W !," '^' to stop the display"
|
|---|
| 57 | W !," '^N' to jump to screen #N (appears in upper right of screen '<N>')"
|
|---|
| 58 | W !," <RET> to continue on to the next screen"
|
|---|
| 59 | R !!,"Enter <RET> to continue: ",XS:DTIME
|
|---|
| 60 | G EN1^DGPTF4
|
|---|
| 61 | ;
|
|---|
| 62 | REL ;
|
|---|
| 63 | S Y=1 D RTY^DGPTUTL S DGPTFLE=1,DGPTIFN=PTF D EN^DGPTFREL G ^DGPTF
|
|---|
| 64 | ;
|
|---|
