source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRELG2.m

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1RMPRELG2 ;Hines IOFO/RFM,DDA - DISPLAY ELIGIBILITY SECOND PAGE ;3/26/07 07:39
2 ;;3.0;PROSTHETICS;**88**;Feb 09, 1996;Build 2
3 ;DDA 6 MAR 07 - Patch 88 - Added Scheduling Encapsulation database check
4 ; for SDA^VADPT call and ^UTILITY("VASD", usage.
5 ; Variable RMPRSDER will equal 2 if the COTS database is unavailable.
6 ;
7 S VAIP("D")="L" D IN5^VADPT,SDE^VADPT K VAERR D SDA^VADPT S RMPRSDER=VAERR W @IOF
8 W $E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42,"DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",RMPRCNUM
9 W !!?20,"Last Movement Actions",! I VAIP(1)="" W !?5,"No Movements Recorded for this Patient",!! G CLI
10 W "Trans. Type: ",$P(VAIP(2),U,2),?40,"Trans. Type: ",$P(VAIP(13,2),U,2),!,"Date: ",$P(VAIP(3),U,2),?40,"Date: ",$P(VAIP(13,1),U,2),!,"Type of Movement: ",?40,"Type of Movement: ",!,$P(VAIP(4),U,2),?40,$P(VAIP(13,3),U,2)
11 W !,"Ward: ",$P(VAIP(5),U,2),?40,"Ward: ",$P(VAIP(13,4),U,2),!,"Physician: ",$E($P(VAIP(7),U,2),1,25),?40,"Physician: ",$E($P(VAIP(13,5),U,2),1,25)
12 W !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28)
13CLI W !?20,"Clinic Enrollments" I '$D(^UTILITY("VAEN",$J)) W !!?5,"No Clinic Enrollments for this Patient" G APP
14 S RO=0 F I=0:0 S RO=$O(^UTILITY("VAEN",$J,RO)) Q:RO'>0 D WRI
15 G APP
16WRI W:'$D(RMPRFLG) !,"Clinic",?40,"Enrollment Date",?60,"OPT or AC" S RMPRFLG=1 W !,$P(^UTILITY("VAEN",$J,RO,"E"),U,1),?40,$P(^UTILITY("VAEN",$J,RO,"E"),U,2),?63,$P(^UTILITY("VAEN",$J,RO,"E"),U,3) Q
17APP W !!,?20,"Pending Appointments" I RMPRSDER=2!'$D(^UTILITY("VASD",$J)) D G VIEW
18 . I RMPRSDER=2 W !!?5,"Fatal RSA error. See SDAM RSA ERROR LOG file." Q
19 . W !!?5,"No Pending Appointments for this Patient"
20 .Q
21 S RO=0 F I=0:0 S RO=$O(^UTILITY("VASD",$J,RO)) Q:RO'>0 D WRI2
22VIEW S RMPRCOMB=1,RNSK=1 D:$D(DFN) DIV4^RMPRSIT,^RMPRFO2
23 G EXIT
24WRI2 W:'$D(RMPRFLL) !,"Appt. Date",?20,"Clinic",?50,"Status",?60,"Type" S RMPRFLL=1
25 W !,$P(^UTILITY("VASD",$J,RO,"E"),U,1),?20,$E($P(^UTILITY("VASD",$J,RO,"E"),U,2),1,29),?50,$P(^UTILITY("VASD",$J,RO,"E"),U,3),?60,$P(^UTILITY("VASD",$J,RO,"E"),U,4) Q
26EXIT K ^UTILITY("VAEN",$J),RMPRIN,^UTILITY("VASD",$J),RVA,RMPRFF,VAIP,VASD,RO,RMPRFLL,RMPRFLG,RMPRSDER S FL=2 W ! G EXIT^RMPRELG1
27 Q
Note: See TracBrowser for help on using the repository browser.