| [613] | 1 | RMPRU ;PHX/HPL- ASSORTED UTILITIES ; 10/31/1994
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | ACT ;If either Orthotic Lab and Shoe Last Clinic has been activated or
|
|---|
| 4 | ;Restoration Lab has been activated, make sure Fiscal has activated
|
|---|
| 5 | ;the appropriate Cost Center(s) or do not allow creation of Lab
|
|---|
| 6 | ;requests.
|
|---|
| 7 | ;Called from the Entry Action Field of the Option CREATE 2529-3 REQUEST.
|
|---|
| 8 | ;NO VARIABLES REQUIRED
|
|---|
| 9 | N RMPRSITE,RMPRPRI,RMPRCP,RMPRCC,RMPRPICE
|
|---|
| 10 | S RMPRSITE=DUZ(2),RMPRPRI=0 S RMPRPRI=$O(^RMPR(669.9,"C",DUZ(2),RMPRPRI)),RMPRCC=827300,RMPRCP=910
|
|---|
| 11 | ACT1 S RMPRPICE=$S(RMPRCC=827300:"11",RMPRCC=827400:"12")
|
|---|
| 12 | I $G(RMPRSITE),$P(^RMPR(669.9,RMPRPRI,0),U,RMPRPICE)>0,$P($G(^PRCD(420,RMPRSITE,1,RMPRCP,2,RMPRCC,0)),U,1)'>0 D
|
|---|
| 13 | .S RQUIT=1
|
|---|
| 14 | .W !!,"Cost Center ",RMPRCC," has not been activated for "_$S(RMPRCC=827300:"Orthotic Lab and Shoe Last Clinic",RMPRCC=827400:"Restoration Lab",1:"")_". ",!,"Please contact Fiscal Service."
|
|---|
| 15 | Q:RMPRCC=827400 S RMPRCC=827400 D ACT1
|
|---|
| 16 | Q
|
|---|
| 17 | GTNAME(RDFN) ;UTILITY TO GET THE PATIENT'S NAME FROM THE PATIENT FILE USING
|
|---|
| 18 | ;VADPT CALLS
|
|---|
| 19 | N DFN,VAHOW,VAROOT,RMPRNAME
|
|---|
| 20 | S DFN=RDFN,VAROOT="RMPRNAME"
|
|---|
| 21 | D DEM^VADPT
|
|---|
| 22 | Q RMPRNAME(1)
|
|---|
| 23 | GTSSN(RDFN) ;UTILITY TO GET PATIENT'S SSN FROM THE PATIENT FILE USING
|
|---|
| 24 | ;VADPT CALLS
|
|---|
| 25 | N DFN,VAHOW,VAROOT,RMPRNAME
|
|---|
| 26 | S DFN=RDFN,VAROOT="RMPRNAME"
|
|---|
| 27 | D DEM^VADPT
|
|---|
| 28 | Q $P(RMPRNAME(2),U,2)
|
|---|
| 29 | NAMESSN(RDFN) ;Utility to get a two piece string consisting of patient name
|
|---|
| 30 | ;and social security number
|
|---|
| 31 | N DFN,VAHOW,VAROOT,RMPRNAME
|
|---|
| 32 | S DFN=RDFN,VAROOT="RMPRNAME"
|
|---|
| 33 | D DEM^VADPT
|
|---|
| 34 | Q RMPRNAME(1)_"^"_$P(RMPRNAME(2),U,2)
|
|---|
