47 lines
2.1 KiB
Mathematica
47 lines
2.1 KiB
Mathematica
PSJDPT ;BIR/JLC - CENTRALIZED PATIENT LOOKUP FOR IPM ; 07 Nov 00
|
|
;;5.0; INPATIENT MEDICATIONS ;**53,124,166,160**;16 DEC 97;Build 12
|
|
;
|
|
; Reference to ^DPT is supported by DBIA 10035
|
|
; Reference to ^DGSEC4 is supported by DBIA 3027
|
|
; Reference to ^DIC is supported by DBIA 10006
|
|
; Reference to ^DICN is supported by DBIA 10009
|
|
; Reference to ^DPTLK is supported by DBIA 3787
|
|
; Reference to ^DPTLK1 is supported by DBIA 3266
|
|
; Reference to DISPPRF^DGPFAPI is supported by DBIA 4563
|
|
; Reference to GETACT^DGPFAPI is supported by DBIA 3860
|
|
; Reference to ^ORRDI1 is supported by DBIA 4659.
|
|
; Reference to ^XTMP("ORRDI" is supported by DBIA 4660.
|
|
;
|
|
EN ; MAIN ENTRY POINT FOR PATIENT LOOKUP
|
|
K DIC S DIC="^DPT(",DIC("W")="D DPT^PSJDPT",DIC(0)="QEMZ" D ^DPTLK K DIC
|
|
I $$BADADR^DGUTL3(+Y) H 2
|
|
N Y
|
|
D
|
|
. I $T(HAVEHDR^ORRDI1)]"",$$HAVEHDR^ORRDI1,$D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) W !,"Remote data not available - Only local order checks processed." D PAUSE^PSJLMUT1
|
|
Q
|
|
CHK(Y,DISP,PAUSE) N RESULT,RES,CHKY,PSGTEMP
|
|
S DISP=$G(DISP),PAUSE=$G(PAUSE)
|
|
I $G(XQY0)["PSJI COMPLETE",$$GETACT^DGPFAPI(+Y,"PSGTEMP") K PSGTEMP W @IOF,"PATIENT: ",$P(Y,U,2)
|
|
S CHKY=Y D DISPPRF^DGPFAPI(Y) S Y=CHKY K CHKY
|
|
D PTSEC^DGSEC4(.RESULT,$P(Y,"^"),1)
|
|
I RESULT(1)'=0 D
|
|
. W !! I DISP W ?(80-$L($P(Y,"^",2)))\2,$P(Y,"^",2),!
|
|
. F I=2:1:9 I $D(RESULT(I)) W ?(80-$L(RESULT(I)))\2,RESULT(I),!
|
|
. I RESULT(1)'=0,RESULT(1)'=2,PAUSE H 2
|
|
. Q:RESULT(1)=1
|
|
. I RESULT(1)=-1!(RESULT(1)=3)!(RESULT(1)=4) S Y=-1 Q
|
|
. I RESULT(1)=2 D ENCONT I Y=-1 Q
|
|
. D NOTICE^DGSEC4(.RES,Y,XQY0,$S(RESULT(1)=1:1,1:3)) I RES=0 S Y=-1 Q
|
|
Q
|
|
ENCONT W !,"Do you want to continue processing this patient record"
|
|
S %=2 D YN^DICN I %<0!(%=2) S Y=-1
|
|
I '% W !!,"Enter 'YES' to continue processing, or 'NO' to quit processing this record." G ENCONT
|
|
Q
|
|
DPT I $$DOB^DPTLK1(Y)["*SENSITIVE" G SENS
|
|
S ND=$S($D(^DPT(Y,0)):^(0),1:""),NB=$P(ND,"^",3),NS=$P(ND,"^",9)
|
|
I NS W ?42,$E(NS,1,3),"-",$E(NS,4,5),"-",$E(NS,6,10)," "
|
|
I NB W ?55,$E(NB,4,5),"/",$E(NB,6,7),"/",$E(NB,2,3)," "
|
|
I $D(^DPT(Y,.1)) W ?67,$P(^(.1),"^")
|
|
Q
|
|
SENS W ?42,"*SENSITIVE* ",?55,"*SENSITIVE* ",?67,"*SENSITIVE*" Q
|