191 lines
4.8 KiB
Mathematica
191 lines
4.8 KiB
Mathematica
ORLP3MGR ; SLC/AEB - Manager Options - Patient List Defaults ;9/22/97 [4/25/00 3:25pm]
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,82**;Dec 17, 1997
|
|
;
|
|
CLSTRTD ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Start Date",PARAM="ORLP DEFAULT CLINIC START DATE"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLSTPD ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Stop Date",PARAM="ORLP DEFAULT CLINIC STOP DATE"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLSUN ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Sunday",PARAM="ORLP DEFAULT CLINIC SUNDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLMON ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Monday",PARAM="ORLP DEFAULT CLINIC MONDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLTUE ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Tuesday",PARAM="ORLP DEFAULT CLINIC TUESDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLWED ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Wednesday",PARAM="ORLP DEFAULT CLINIC WEDNESDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLTHUR ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Thursday",PARAM="ORLP DEFAULT CLINIC THURSDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLFRI ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Friday",PARAM="ORLP DEFAULT CLINIC FRIDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
CLSAT ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Clinic Saturday",PARAM="ORLP DEFAULT CLINIC SATURDAY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
LSTORD ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Sort Order for Patient List",PARAM="ORLP DEFAULT LIST ORDER"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
LSTSRC ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default List Source",PARAM="ORLP DEFAULT LIST SOURCE"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
PROVIDER ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Primary Provider",PARAM="ORLP DEFAULT PROVIDER"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
SPEC ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Treating Specialty",PARAM="ORLP DEFAULT SPECIALTY"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
TEAM ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Team List",PARAM="ORLP DEFAULT TEAM"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
WARD ;
|
|
N ORLPT,PARAM
|
|
S ORLPT="Set Default Ward",PARAM="ORLP DEFAULT WARD"
|
|
D OPSETUP(ORLPT,PARAM)
|
|
Q
|
|
;
|
|
OPSETUP(ORLPT,PARAM) ;
|
|
N ORLPPAR
|
|
S ORLPPAR=$O(^XTV(8989.51,"B",PARAM,0)) Q:ORLPPAR=""
|
|
D TITLE(ORLPT) D PROC(ORLPPAR)
|
|
Q
|
|
;
|
|
TITLE(ORLPT) ;
|
|
; Center and write title
|
|
S IOP=0 D ^%ZIS K IOP W @IOF
|
|
W !,?(80-$L(ORLPT)-1/2),ORLPT
|
|
Q
|
|
;
|
|
PROC(PAR) ; Process Parameter Settings
|
|
D EDITPAR^XPAREDIT(PAR)
|
|
Q
|
|
;
|
|
DEFSRC ; default list source and value for user
|
|
N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
|
|
; Get user DUZ number
|
|
K DIC,Y S DIC="^VA(200,",DIC(0)="AEQ",DIC("A")="Enter user's name: ",DIC("B")=DUZ D ^DIC Q:Y<1
|
|
S ORLPDUZ=$S(Y'<1:$P(Y,"^"),1:DUZ) K DIC,Y,DUOUT,DTOUT
|
|
Q:'$D(ORLPDUZ)
|
|
S ORX=$$FDEFSRC^ORQPTQ11(ORLPDUZ)
|
|
S ORLPLNM=$P(ORX,U,2)
|
|
W !!,"The user's default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
|
|
I ORLPLNM="Combination" D
|
|
.; Look for an existing record for this user:
|
|
.S ORLPDUZ=DUZ
|
|
.K ORLPERR
|
|
.S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
|
|
.K ORLPERR
|
|
.D CLEAN^DILF ; Clean up after DB call.
|
|
.;
|
|
.; If no combination record then punt:
|
|
.I +ORLPRTN<1 Q
|
|
.;
|
|
.; Print title for display of current entries:
|
|
.W !," User's current combination entries are:",!
|
|
.;
|
|
.; Call tag^routine to display existing combination sources:
|
|
.S ORLPCNT=0
|
|
.S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
|
|
.I ORLPCNT<1 W !,"No current combination entries...."
|
|
.W !
|
|
S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
|
|
I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
|
|
D ^DIR
|
|
K DIR,Y,X,DTOUT,DUOUT,DIRUT
|
|
;
|
|
Q
|
|
;
|
|
UDEFSRC ; default list source and value for the user
|
|
; SLC/PKS - 3/2000: Modified to display "Combination" sources.
|
|
;
|
|
; Variables used:
|
|
;
|
|
; ORLPCNT = Holds return value from function call.
|
|
; ORLPDUZ = DUZ of current user.
|
|
; ORLPERR = Error array for return from DB calls.
|
|
; ORLPLNM = Name of default list source.
|
|
; ORLPRTN = Return value from DB calls.
|
|
; ORX = Holds default list source parameter.
|
|
;
|
|
N ORX,ORLPLNM,ORLPDUZ,ORLPERR,ORLPRTN,ORLPCNT
|
|
Q:'$D(DUZ)
|
|
S ORX=$$FDEFSRC^ORQPTQ11(DUZ)
|
|
S ORLPLNM=$P(ORX,U,2)
|
|
W !!,"Your default list of patients is based on: ",$P(ORX,U,3)," ",ORLPLNM,!
|
|
I ORLPLNM="Combination" D
|
|
.; Look for an existing record for this user:
|
|
.S ORLPDUZ=DUZ
|
|
.K ORLPERR
|
|
.S ORLPRTN=$$FIND1^DIC(100.24,"","QX",ORLPDUZ,"","","ORLPERR")
|
|
.K ORLPERR
|
|
.D CLEAN^DILF ; Clean up after DB call.
|
|
.;
|
|
.; If no combination record then punt:
|
|
.I +ORLPRTN<1 Q
|
|
.;
|
|
.; Print title for display of current entries:
|
|
.W !," Your current combination entries are:",!
|
|
.;
|
|
.; Call tag^routine to display existing combination sources:
|
|
.S ORLPCNT=0
|
|
.S ORLPCNT=$$COMBDISP^ORQPTQ5(ORLPDUZ,ORLPRTN)
|
|
.I ORLPCNT<1 W !,"No current combination entries...."
|
|
.W !
|
|
.;
|
|
.Q
|
|
;
|
|
; Allow user viewing with default timeout:
|
|
S DIR(0)="FOU",DIR("T")=10,DIR("A")="<RETURN> to continue"
|
|
I ORLPLNM="Combination" S DIR("T")=20 ; More time for combos.
|
|
D ^DIR
|
|
K DIR,Y,X,DTOUT,DUOUT,DIRUT
|
|
Q
|
|
;
|