| 1 | RMPRPAT0 ;Hines IOFO/RFM,DDA - PATIENT INQUIRY SCREEN FROM MAS ;3/26/07 07:47
|
|---|
| 2 | ;;3.0;PROSTHETICS;**88**;Feb 09, 1996;Build 2
|
|---|
| 3 | ;DDA 13 FEB 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 | N VAHOW
|
|---|
| 8 | Q:$G(RMPRDFN)'>0 K RMPRQUES S DFN=RMPRDFN,VAIP("D")="L" D DEM^VADPT,IN5^VADPT,SDE^VADPT K VAERR D SDA^VADPT S RMPRSDER=VAERR W @IOF
|
|---|
| 9 | W !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42
|
|---|
| 10 | W "DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",$G(RMPRCNUM)
|
|---|
| 11 | W !!?20,"Last Movement Actions",! I VAIP(1)="" W !?5,"No Movements Recorded for this Patient",!! G CLI
|
|---|
| 12 | 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)
|
|---|
| 13 | 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)
|
|---|
| 14 | W !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28)
|
|---|
| 15 | CLI W !?20,"Clinic Enrollments" I '$D(^UTILITY("VAEN",$J)) W !!?5,"No Clinic Enrollments for this Patient" G APP
|
|---|
| 16 | S RO=0 F I=1:1 S RO=$O(^UTILITY("VAEN",$J,RO)) Q:RO'>0!($D(KILL)) D WRI
|
|---|
| 17 | G APP
|
|---|
| 18 | WRI I I=3 S %=2 W !,"Would you like to see more clinics" D YN^DICN I %=-1!(%=2) S KILL=1 Q
|
|---|
| 19 | I I=3,%=0 W !,"Enter `YES` or `NO`" G WRI
|
|---|
| 20 | 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
|
|---|
| 21 | APP W !!,?20,"Pending Appointments" I RMPRSDER=2!'$D(^UTILITY("VASD",$J)) D S RMPRCOMB=1 D DIRT D ^RMPRFO2 G EXIT
|
|---|
| 22 | . I RMPRSDER=2 W !!?5,"Fatal RSA error. See SDAM RSA ERROR LOG file." Q
|
|---|
| 23 | . W !!?5,"No Pending Appointments for this Patient"
|
|---|
| 24 | .Q
|
|---|
| 25 | S RO=0 K KILL F I=1:1 S RO=$O(^UTILITY("VASD",$J,RO)) Q:RO'>0!($D(KILL)) D WRI2
|
|---|
| 26 | S RMPRCOMB=1 D DIRT D ^RMPRFO2
|
|---|
| 27 | G EXIT
|
|---|
| 28 | WRI2 W:'$D(RMPRFLL) !,"Appt. Date",?20,"Clinic",?50,"Status",?60,"Type" S RMPRFLL=1
|
|---|
| 29 | APPA I I=3 S %=2 W !,"Would you like to see more appointments" D YN^DICN I %=-1!(%=2)!($D(DTOUT)) S KILL=1 Q
|
|---|
| 30 | I I=3,%=0 W !,"Answer `YES` or `NO`" G APPA
|
|---|
| 31 | 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
|
|---|
| 32 | EXIT K ^UTILITY("VAEN",$J),^UTILITY("VASD",$J),RO,VAIP,VASD,RMPRFLL,KILL,RMPRFLG,RMPRSDER W ! G ASK2^RMPRPAT
|
|---|
| 33 | Q
|
|---|
| 34 | DIRT N DIR S DIR(0)="E" D ^DIR I Y'>0 G EXIT Q
|
|---|
