| 1 | AFJXWCPM ;FO-OAKLAND/GMB-REQUEST PATIENT INFO MENU ;11/8/95
|
|---|
| 2 | ;;5.1;Network Health Exchange;**6,22,31,33,34**;Jan 23, 1996
|
|---|
| 3 | ; Totally rewritten 11/2001. (Previously FJ/CWS.)
|
|---|
| 4 | ; Entry point:
|
|---|
| 5 | ; EN - Invoked by option AFJXNHEX REQUEST
|
|---|
| 6 | EN ;
|
|---|
| 7 | I '$G(DUZ) W !!,"You must have a DUZ defined ........" H 3 W !! Q
|
|---|
| 8 | Q:'$$NHEACTIV
|
|---|
| 9 | D HOME^%ZIS ; Not sure this is needed, but I left it in, anyway.
|
|---|
| 10 | N AXABORT
|
|---|
| 11 | S AXABORT=0
|
|---|
| 12 | F D Q:AXABORT
|
|---|
| 13 | . N DIR,X,Y,DIRUT
|
|---|
| 14 | . D HDR
|
|---|
| 15 | . S DIR("A")=" Enter choice"
|
|---|
| 16 | . S DIR(0)="SO^1:Brief (12 months) Medical Record Information"
|
|---|
| 17 | . S DIR(0)=DIR(0)_";2:Total Medical Record Information"
|
|---|
| 18 | . S DIR(0)=DIR(0)_";3:Brief (12 months) Pharmacy Information"
|
|---|
| 19 | . S DIR(0)=DIR(0)_";4:Total Pharmacy Information"
|
|---|
| 20 | . S DIR(0)=DIR(0)_";5:Print (Completed Requests Only)"
|
|---|
| 21 | . S DIR(0)=DIR(0)_";6:Print By Type of Information (Completed Requests)"
|
|---|
| 22 | . D ^DIR I $D(DIRUT) S AXABORT=1 Q
|
|---|
| 23 | . D @Y
|
|---|
| 24 | W @IOF
|
|---|
| 25 | Q
|
|---|
| 26 | 1 ; Brief (12 months) Medical Record Information
|
|---|
| 27 | D REQUEST^AFJXWCP1("PB")
|
|---|
| 28 | Q
|
|---|
| 29 | 2 ; Total Medical Record Information
|
|---|
| 30 | D REQUEST^AFJXWCP1("P")
|
|---|
| 31 | Q
|
|---|
| 32 | 3 ; Brief (12 months) Pharmacy Information
|
|---|
| 33 | D REQUEST^AFJXWCP1("RB")
|
|---|
| 34 | Q
|
|---|
| 35 | 4 ; Total Pharmacy Information
|
|---|
| 36 | D REQUEST^AFJXWCP1("R")
|
|---|
| 37 | Q
|
|---|
| 38 | 5 ; Print (Completed Requests Only)
|
|---|
| 39 | D ENTER^AFJXMBOX
|
|---|
| 40 | Q
|
|---|
| 41 | 6 ; Print By Type of Information (Completed Requests)
|
|---|
| 42 | D ENTER^AFJXMABX
|
|---|
| 43 | Q
|
|---|
| 44 | HDR ; Print page header
|
|---|
| 45 | N AX1,AX2
|
|---|
| 46 | W @IOF
|
|---|
| 47 | S AX1="VistA Network Health Exchange Menu"
|
|---|
| 48 | S AX2=$$NAME^XMXUTIL(DUZ)
|
|---|
| 49 | W AX1,$J(AX2,74-$L(AX1)),!,$$REPEAT^XLFSTR("=",74)
|
|---|
| 50 | Q
|
|---|
| 51 | NHEACTIV() ; Is NHE user active?
|
|---|
| 52 | N AXNHEDUZ,AXTXT,AXI
|
|---|
| 53 | S AXI=0
|
|---|
| 54 | S AXNHEDUZ=$$FIND1^DIC(200,"","X","NETWORK,HEALTH EXCHANGE")
|
|---|
| 55 | I 'AXNHEDUZ D
|
|---|
| 56 | . S AXI=AXI+1,AXTXT(AXI)="The NETWORK,HEALTH EXCHANGE user is not in the NEW PERSON file."
|
|---|
| 57 | E I $P($G(^VA(200,AXNHEDUZ,0)),U,3)="" D
|
|---|
| 58 | . S AXI=AXI+1,AXTXT(AXI)="The NETWORK,HEALTH EXCHANGE user does not have an access code."
|
|---|
| 59 | I '$D(^XMB(3.7,+AXNHEDUZ,2)) D
|
|---|
| 60 | . S AXI=AXI+1,AXTXT(AXI)="The NETWORK,HEALTH EXCHANGE user does not have a MAILBOX."
|
|---|
| 61 | Q:'AXI 1
|
|---|
| 62 | W $C(7),!
|
|---|
| 63 | S AXI=0 F S AXI=$O(AXTXT(AXI)) Q:'AXI W !,AXTXT(AXI)
|
|---|
| 64 | W !!,"Please inform IRM."
|
|---|
| 65 | W !,"Until this is corrected, you will not be able to use this option."
|
|---|
| 66 | Q 0
|
|---|
