source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRU.m@ 623

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1RMPRU ;PHX/HPL- ASSORTED UTILITIES ; 10/31/1994
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3ACT ;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
11ACT1 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
17GTNAME(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)
23GTSSN(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)
29NAMESSN(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)
Note: See TracBrowser for help on using the repository browser.