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

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

initial load of WorldVistAEHR
File size: 5.0 KB
Line 
1DGPAR ;ALB/MRL - ADT PARAMETER ENTRY/EDIT ; 07 MAR 87
2 ;;5.3;Registration;**51,86,93,109,214,343**;Aug 13, 1993
3 I '$D(^DG(43,1,0))#2 S DA=1,^DG(43,1,0)=1,DIK="^DG(43," D IX1^DIK
4WR D DT^DICRW S U="^",DGHEAD="PIMS VERSION "_$S('$D(^DG(43,1,"VERSION")):"'UNKNOWN'",^("VERSION")[".":^("VERSION"),1:^("VERSION")_".0")_" PARAMETER ENTRY/EDIT",IOP="HOME" D ^%ZIS K IOP
5 W @IOF,!?20,DGHEAD,! S X="",$P(X,"=",79)="" W X F I=0,"GL","BT","SCLR","DGPRE","REC","PH" S DGNOD(I)=$S($D(^DG(43,1,I)):^(I),1:"")
6 S DGMULT=+$P(DGNOD("GL"),"^",2),DGPTFP=+$P(DGNOD(0),"^",31) W !,"[1] Medical Center Name : ",$S($D(^DG(40.8,+$P(DGNOD("GL"),"^",3),0)):$P(^(0),"^",1),1:"NONE SPECIFIED"),?59,"Affiliated: ",$S(+$P(DGNOD("GL"),"^",4):"YES",1:"NO")
7 W !?4,"Multidivisional : ",$S(+$P(DGNOD("GL"),"^",2):"YES",1:"NO")
8 W !?4,"Nursing Home Wards : ",$S(+$P(DGNOD(0),"^",20):"YES",1:"NO")
9 W ?52,"Domiciliary Wards: ",$S(+$P(DGNOD(0),"^",21):"YES",1:"NO")
10 W !?4,"System Timeout Sec. : ",+$P(DGNOD(0),"^",5),?51,"Print PTF Messages: ",$S($P(DGNOD(0),"^",31):"YES",1:"NO")
11 ;W !?4,"G&L Earliest Date : " S Y=$P(DGNOD("GL"),"^",1) X:Y]"" ^DD("DD") W $S(Y]"":Y,1:"NONE SPECIFIED")
12 W !?4,"Default PTF Printer : ",$S($P(DGNOD(0),"^",19)]"":$P(DGNOD(0),"^",19),1:"NONE SPECIFIED"),?55,"High Intensity: ",$S($P(DGNOD(0),"^",36):"ON",1:"OFF")
13 W !?4,"Consistency Checker : ",$S($P(DGNOD(0),"^",37):"ON",1:"OFF"),?50,"Abbreviated Inquiry: ",$S($P(DGNOD(0),"^",38):"YES",1:"NO")
14 W !?4,"Auto PTF Messages : ",$S($P(DGNOD(0),"^",40)!($P(DGNOD(0),"^",40)']""):"YES",1:"NO"),?51,"Show Status Screen: ",$S($P(DGNOD(0),"^",34):"YES",1:"NO")
15 S DGX=46 W !!,"[2] Days to Update Medicaid",?31,": ",$S('$P(^DG(43,1,0),U,46):365,1:+$P(^(0),U,46))
16 W ?45,"Maintain G&L Corrections: " S DGX=29,DGX1="DAY" D DAY W !?4,"Disposition late",?31,": " S DGX=7,DGX1="HOUR" D DAY
17 S DGX=8 W ?51,"Supplemental 10/10: " D DO
18 S DGX=27 W !?4,"Ask HINQ at Registration",?31,": " D DO
19 S DGX=17 W ?46,"DRUG PROFILE with 10/10: " D DO
20 I $P(^DG(43,1,0),U,17) D
21 .S DGX=44 W !?4,"CHOICE OF DRUG PROFILE?",?31,": " D DO
22 .W ?49,"Default Drug Profile: "
23 .S X=$P(^DG(43,1,0),U,45) W $S(X="A":"ACTION",1:"INFO.")
24 S X="GMTSDVR" X ^%ZOSF("TEST") I $T I $T(ENXQ^GMTSDVR)]"" S DGHSFLG=1
25 W !?4,"HEALTH SUMMARY with 10/10 : " W:'$G(DGHSFLG) "N/A"
26 I $G(DGHSFLG) D
27 .N DIC,X,Y
28 .S DGX=42 D DO
29 .W ?47,"Default Health Summary: "
30 .S X=$P($G(^DG(43,1,0)),U,43),DIC=142,DIC(0)="NX"
31 .D ^DIC
32 .W $S(Y<0:"NONE",1:$E($P(Y,U,2),1,8))
33 K DGHSFLG
34EMB S DGX=28 W !?4,"Ask EMBOSS at Registration : " D DO
35 S DGX=30 W ?50,"Use Nearest Printer: " D DO
36 W !?4,"Reg. Template (LOCAL)",?31,": ",$S('$P(DGNOD(0),"^",35):"NONE SPECIFIED",'$D(^DIE(+$P(DGNOD(0),"^",35),0)):"NONE SPECIFIED",1:$P(^DIE(+$P(DGNOD(0),"^",35),0),"^",1))
37 W ?53,"Use Temp Address: ",$S($P(DGNOD("BT"),"^",3):"YES",1:"NO")
38 W !?4,"Default Code Sheet Printer : ",$S($P(DGNOD(0),"^",25)]"":$P(DGNOD(0),"^",25),1:"NONE SPECIFIED"),?51,"Ask Device in Reg.: ",$S($P(DGNOD(0),"^",39):"YES",1:"NO")
39 S DGX=33 W !?4,"Days to Maintain Sens. Data: ",$S('$P(^DG(43,1,0),"^",33):"Forever",1:+$P(^(0),"^",33))
40 S DGX=47 W ?49,"Print Encounter Form",?31,": " D DO
41 W !?4,"Default EF Printer",?31,": ",$S($P(DGNOD(0),"^",48)]"":$P(DGNOD(0),"^",48),1:"NONE SPECIFIED")
42REC ;Write PATIENT (#2) file record access parameter
43 W !?4,"Restrict PATIENT access : ",$S($P($G(DGNOD("REC")),U)=1:"YES",1:"NO")
44 W !?4,"Purple Heart Sort",?31,": ",$S($P($G(DGNOD("PH")),U)="A":"Ascending",1:"Descending")
45PREREG ; write pre-registration parameters
46 W !!?4,"[Pre-Registration]"
47 W !?4,"Sort Method",?31,": ",$P($G(DGNOD("DGPRE")),U),?46,"Background Job Function: ",$P($G(DGNOD("DGPRE")),U,3)
48 W !?4,"Days Between Calls",?31,": ",$P($G(DGNOD("DGPRE")),U,2),?41,"Days to Maintain Log Entries: ",$P($G(DGNOD("DGPRE")),U,4)
49 W !?4,"Days to Pull Appointments",?31,": ",$P($G(DGNOD("DGPRE")),U,5),?54,"Run for Weekend: ",$S($P($G(DGNOD("DGPRE")),U,6):"YES",1:"NO")
50 ;
51 I +$P($G(^DG(43,1,"DGPREC",0)),U,3)>0 D
52 . W !!?4,"Excluded Clinics:"
53 . N NDX,LNDX
54 . S LNDX=1
55 . S NDX="" F S NDX=$O(^DG(43,1,"DGPREC","B",NDX)) Q:'NDX D
56 .. I LNDX=1 W !?4,$E($P(^SC(NDX,0),U),1,20) S LNDX=2 Q
57 .. I LNDX=2 W ?30,$E($P(^SC(NDX,0),U),1,20) S LNDX=3 Q
58 .. I LNDX=3 W ?55,$E($P(^SC(NDX,0),U),1,20) S LNDX=1 Q
59 ;
60 I +$P($G(^DG(43,1,"DGPREE",0)),U,3)>0 D
61 . W !!?4,"Excluded Eligibilities:"
62 . N NDX,LNDX
63 . S LNDX=1
64 . S NDX="" F S NDX=$O(^DG(43,1,"DGPREE","B",NDX)) Q:'NDX D
65 .. I LNDX=1 W !?4,$E($P(^DIC(8,NDX,0),U),1,20) S LNDX=2 Q
66 .. I LNDX=2 W ?30,$E($P(^DIC(8,NDX,0),U),1,20) S LNDX=3 Q
67 .. I LNDX=3 W ?55,$E($P(^DIC(8,NDX,0),U),1,20) S LNDX=1 Q
68 ;
69DIV ; write division parameters
70 W !!,"[3]" I DGMULT W ?4,"Divisions: " F I=0:0 S I=$O(^DG(40.8,I)) Q:'I S X=$P(^(I,0),"^",1)_$S($P(^(0),"^",2)]"":" ("_$P(^(0),"^",2)_"), ",1:"") W:$L(X)>(65-$X) !?15 W X
71 I 'DGMULT S DGD=+$P(DGNOD("GL"),"^",3),DGDV=$S($D(^DG(40.8,DGD,"DEV")):^("DEV"),1:""),DGZE=$S($D(^(0)):^(0),1:"") D DEV^DGPAR1
72 G ^DGPAR1
73DAY S DGD=+$P(DGNOD(0),"^",DGX) I DGX=29,'DGD W "FOREVER" Q
74 W DGD,"-",DGX1,$S(DGD=1:"",1:"S") Q
75DO I DGX'=8 W $S('$P(DGNOD(0),"^",DGX):"NO",1:"YES") Q
76 W $S('$P(DGNOD(0),"^",DGX):"YES",1:"NO") Q
Note: See TracBrowser for help on using the repository browser.