- PSJDPT ;BIR/JLC - CENTRALIZED PATIENT LOOKUP FOR IPM ;29-May-2012 14:38;PLS
- ;;5.0; INPATIENT MEDICATIONS ;**53,1003,124,166,160,198,1015**;16 DEC 97;Build 62
- ;
- ; 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.
- ;
- ; Modified - IHS/MSC/PLS - 05/10/10 - Line EN+1
- EN ; MAIN ENTRY POINT FOR PATIENT LOOKUP
- ;K DIC S DIC="^DPT(",DIC("W")="D DPT^PSJDPT",DIC(0)="QEMZ" D ^DPTLK K DIC ;IHS/MSC/PLS - 05/10/10 - Commented out
- K DIC S DIC="^DPT(",DIC("W")="D DPT^PSJDPT",DIC(0)="QEMZ" D ^DIC K DIC
- I $$BADADR^DGUTL3(+Y) H 2
- N Y
- D
- . ;PSJ*5.0*198;GMZ;Don't print remote data msg on view profile only menu options
- . I $T(HAVEHDR^ORRDI1)]"",$$HAVEHDR^ORRDI1,$D(^XTMP("ORRDI","OUTAGE INFO","DOWN")),'$G(PSJNODIS) 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
- PSJDPT ;BIR/JLC - CENTRALIZED PATIENT LOOKUP FOR IPM ;29-May-2012 14:38;PLS
- +1 ;;5.0; INPATIENT MEDICATIONS ;**53,1003,124,166,160,198,1015**;16 DEC 97;Build 62
- +2 ;
- +3 ; Reference to ^DPT is supported by DBIA 10035
- +4 ; Reference to ^DGSEC4 is supported by DBIA 3027
- +5 ; Reference to ^DIC is supported by DBIA 10006
- +6 ; Reference to ^DICN is supported by DBIA 10009
- +7 ; Reference to ^DPTLK is supported by DBIA 3787
- +8 ; Reference to ^DPTLK1 is supported by DBIA 3266
- +9 ; Reference to DISPPRF^DGPFAPI is supported by DBIA 4563
- +10 ; Reference to GETACT^DGPFAPI is supported by DBIA 3860
- +11 ; Reference to ^ORRDI1 is supported by DBIA 4659.
- +12 ; Reference to ^XTMP("ORRDI" is supported by DBIA 4660.
- +13 ;
- +14 ; Modified - IHS/MSC/PLS - 05/10/10 - Line EN+1
- EN ; MAIN ENTRY POINT FOR PATIENT LOOKUP
- +1 ;K DIC S DIC="^DPT(",DIC("W")="D DPT^PSJDPT",DIC(0)="QEMZ" D ^DPTLK K DIC ;IHS/MSC/PLS - 05/10/10 - Commented out
- +2 KILL DIC
- SET DIC="^DPT("
- SET DIC("W")="D DPT^PSJDPT"
- SET DIC(0)="QEMZ"
- DO ^DIC
- KILL DIC
- +3 IF $$BADADR^DGUTL3(+Y)
- HANG 2
- +4 NEW Y
- +5 Begin DoDot:1
- +6 ;PSJ*5.0*198;GMZ;Don't print remote data msg on view profile only menu options
- +7 IF $TEXT(HAVEHDR^ORRDI1)]""
- IF $$HAVEHDR^ORRDI1
- IF $DATA(^XTMP("ORRDI","OUTAGE INFO","DOWN"))
- IF '$GET(PSJNODIS)
- WRITE !,"Remote data not available - Only local order checks processed."
- DO PAUSE^PSJLMUT1
- End DoDot:1
- +8 QUIT
- CHK(Y,DISP,PAUSE) NEW RESULT,RES,CHKY,PSGTEMP
- +1 SET DISP=$GET(DISP)
- SET PAUSE=$GET(PAUSE)
- +2 IF $GET(XQY0)["PSJI COMPLETE"
- IF $$GETACT^DGPFAPI(+Y,"PSGTEMP")
- KILL PSGTEMP
- WRITE @IOF,"PATIENT: ",$PIECE(Y,U,2)
- +3 SET CHKY=Y
- DO DISPPRF^DGPFAPI(Y)
- SET Y=CHKY
- KILL CHKY
- +4 DO PTSEC^DGSEC4(.RESULT,$PIECE(Y,"^"),1)
- +5 IF RESULT(1)'=0
- Begin DoDot:1
- +6 WRITE !!
- IF DISP
- WRITE ?(80-$LENGTH($PIECE(Y,"^",2)))\2,$PIECE(Y,"^",2),!
- +7 FOR I=2:1:9
- IF $DATA(RESULT(I))
- WRITE ?(80-$LENGTH(RESULT(I)))\2,RESULT(I),!
- +8 IF RESULT(1)'=0
- IF RESULT(1)'=2
- IF PAUSE
- HANG 2
- +9 IF RESULT(1)=1
- QUIT
- +10 IF RESULT(1)=-1!(RESULT(1)=3)!(RESULT(1)=4)
- SET Y=-1
- QUIT
- +11 IF RESULT(1)=2
- DO ENCONT
- IF Y=-1
- QUIT
- +12 DO NOTICE^DGSEC4(.RES,Y,XQY0,$SELECT(RESULT(1)=1:1,1:3))
- IF RES=0
- SET Y=-1
- QUIT
- End DoDot:1
- +13 QUIT
- ENCONT WRITE !,"Do you want to continue processing this patient record"
- +1 SET %=2
- DO YN^DICN
- IF %<0!(%=2)
- SET Y=-1
- +2 IF '%
- WRITE !!,"Enter 'YES' to continue processing, or 'NO' to quit processing this record."
- GOTO ENCONT
- +3 QUIT
- DPT IF $$DOB^DPTLK1(Y)["*SENSITIVE"
- GOTO SENS
- +1 SET ND=$SELECT($DATA(^DPT(Y,0)):^(0),1:"")
- SET NB=$PIECE(ND,"^",3)
- SET NS=$PIECE(ND,"^",9)
- +2 IF NS
- WRITE ?42,$EXTRACT(NS,1,3),"-",$EXTRACT(NS,4,5),"-",$EXTRACT(NS,6,10)," "
- +3 IF NB
- WRITE ?55,$EXTRACT(NB,4,5),"/",$EXTRACT(NB,6,7),"/",$EXTRACT(NB,2,3)," "
- +4 IF $DATA(^DPT(Y,.1))
- WRITE ?67,$PIECE(^(.1),"^")
- +5 QUIT
- SENS WRITE ?42,"*SENSITIVE* ",?55,"*SENSITIVE* ",?67,"*SENSITIVE*"
- QUIT
