| 1 | FBAAPI ;AISC/GRR-PATIENT INQUIRY ;03JAN86
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | RD K FBAANQ W !! S DIC="^DPT(",DIC(0)="AEQM" D ^DIC G Q:X="^"!(X=""),RD:Y<0 S DFN=+Y
|
|---|
| 5 | S VAR="DFN",VAL=DFN,PGM="START^FBAAPI" D ZIS^FBAAUTL G:FBPOP Q S:IO=IO(0) FBAANQ=1
|
|---|
| 6 | START U IO
|
|---|
| 7 | W ! D ^FBAADEM
|
|---|
| 8 | I $E(IOST,1,2)="C-" D
|
|---|
| 9 | . Q:'$O(^FBAA(161.5,"D",DFN,0))
|
|---|
| 10 | .W !!,"Patient also has Inpatient Report(s) of Contact with the following date(s):",!
|
|---|
| 11 | . S I=0 F S I=$O(^FBAA(161.5,"D",DFN,I)) Q:'I S Y=$P($G(^FBAA(162.2,I,0)),"^") D DD^%DT W !?10,Y
|
|---|
| 12 | G:$D(FBAANQ) RD
|
|---|
| 13 | Q K DIC,X,Y,FBAAOUT,FBAUT,FBPROG,PTYPE,X1,FBAANQ,DFN,DAT,F,FBCOUNTY,FBDX,FBI,FBRR,FBXX,I,PGM,PI,T,VAL,VAR,Z,ZZ,M,Q
|
|---|
| 14 | D CLOSE^FBAAUTL Q
|
|---|
