- BOPSLK ;IHS/ILC/ALG/CIA/PLS - Display Patient Info from BOPSHO;10-Feb-2006 10:34;DU
- ;;1.0;AUTOMATED DISPENSING INTERFACE;**1**;Jul 26, 2005
- ;
- N Y,B,E,P,D,F
- S B=$G(^BOP(90355.1,A,"O",0))
- W !,"**********************************************************************"
- W !,"Item: ",A,?18,"D/T Received: ",$$FMTE^XLFDT(B,"2Z"),?52,"Message Type: "
- S B=$G(^BOP(90355.1,A,0)),E=B W $S($P(B,U,4)="RDE":"ORDER",1:$P(B,U,4))
- W !,"D/T of Event: " W $$FMTE^XLFDT($P(B,U,3),"2Z")
- W ?37,"D/T of Message: " W $$FMTE^XLFDT($P(B,U,5),"2Z")
- W !,"D/T Logged for Send: " W $$FMTE^XLFDT($P(B,U),"2Z")
- W ?55,"Facility ID: ",$P(B,U,12)
- W !,"----------------------------------------------------------------------"
- S B=$G(^BOP(90355.1,A,1)) W !,"PT Name: ",$E($P(B,U,3),1,15),?26,"PT HRN: ",$P(B,U,14),?47,"PT ID: ",$P(B,U)
- S B=$G(^BOP(90355.1,A,10)) W !,"PT Class: ",$S($P(B,U)="I":"IN",1:"OUT"),"PATIENT",?23,"Nursing Unit: ",$P(B,U,2),?50,"Room/Bed: ",$P(B,U,3)
- I $P(E,U,4)="ADT" D
- .W !," Short Diagnosis: ",$G(^BOP(90355.1,A,12))
- .S B=$G(^BOP(90355.1,A,9))
- .W !,"PT Height: ",$P(B,U)," (cm)",?25,"PT Weight: ",$P(B,U,2)," (kg)"
- .W !," Allergy: "
- .S B=0 F S B=$O(^BOP(90355.1,A,11,B)) Q:'B D
- ..W ?15,$P($G(^BOP(90355.1,A,11,B,0)),U),!
- W !,"----------------------------------------------------------------------"
- I $P(E,U,4)="RDE" D
- .W !,"Order Code: " S B=$G(^BOP(90355.1,A,2))
- .W $P(B,U),?18,"Internal Order #: ",$P(B,U,2),?42,"Order Status: ",$P(B,U,3)
- .W !,"Posting Date: ",$$FMTE^XLFDT($P(B,U,4),"2Z")
- .W ?36,"Q/T Freq: " S B=$G(^BOP(90355.1,A,3)) W $P(B,U)
- .W !,"Q/T Order Start D/T: ",$$FMTE^XLFDT($P(B,U,3),"2Z")
- .W !,"Q/T Order End D/T: ",$$FMTE^XLFDT($P(B,U,4),"2Z")
- .S B=$G(^BOP(90355.1,A,8))
- .W !,"Route: ",$P(B,U)
- .S B=$G(^BOP(90355.1,A,4))
- .W ?40,"Drug #: ",$P(B,U)
- .W !,"Drug Description: ",$P(B,U,2)
- Q
- BOPSLK ;IHS/ILC/ALG/CIA/PLS - Display Patient Info from BOPSHO;10-Feb-2006 10:34;DU
- +1 ;;1.0;AUTOMATED DISPENSING INTERFACE;**1**;Jul 26, 2005
- +2 ;
- +3 NEW Y,B,E,P,D,F
- +4 SET B=$GET(^BOP(90355.1,A,"O",0))
- +5 WRITE !,"**********************************************************************"
- +6 WRITE !,"Item: ",A,?18,"D/T Received: ",$$FMTE^XLFDT(B,"2Z"),?52,"Message Type: "
- +7 SET B=$GET(^BOP(90355.1,A,0))
- SET E=B
- WRITE $SELECT($PIECE(B,U,4)="RDE":"ORDER",1:$PIECE(B,U,4))
- +8 WRITE !,"D/T of Event: "
- WRITE $$FMTE^XLFDT($PIECE(B,U,3),"2Z")
- +9 WRITE ?37,"D/T of Message: "
- WRITE $$FMTE^XLFDT($PIECE(B,U,5),"2Z")
- +10 WRITE !,"D/T Logged for Send: "
- WRITE $$FMTE^XLFDT($PIECE(B,U),"2Z")
- +11 WRITE ?55,"Facility ID: ",$PIECE(B,U,12)
- +12 WRITE !,"----------------------------------------------------------------------"
- +13 SET B=$GET(^BOP(90355.1,A,1))
- WRITE !,"PT Name: ",$EXTRACT($PIECE(B,U,3),1,15),?26,"PT HRN: ",$PIECE(B,U,14),?47,"PT ID: ",$PIECE(B,U)
- +14 SET B=$GET(^BOP(90355.1,A,10))
- WRITE !,"PT Class: ",$SELECT($PIECE(B,U)="I":"IN",1:"OUT"),"PATIENT",?23,"Nursing Unit: ",$PIECE(B,U,2),?50,"Room/Bed: ",$PIECE(B,U,3)
- +15 IF $PIECE(E,U,4)="ADT"
- Begin DoDot:1
- +16 WRITE !," Short Diagnosis: ",$GET(^BOP(90355.1,A,12))
- +17 SET B=$GET(^BOP(90355.1,A,9))
- +18 WRITE !,"PT Height: ",$PIECE(B,U)," (cm)",?25,"PT Weight: ",$PIECE(B,U,2)," (kg)"
- +19 WRITE !," Allergy: "
- +20 SET B=0
- FOR
- SET B=$ORDER(^BOP(90355.1,A,11,B))
- IF 'B
- QUIT
- Begin DoDot:2
- +21 WRITE ?15,$PIECE($GET(^BOP(90355.1,A,11,B,0)),U),!
- End DoDot:2
- End DoDot:1
- +22 WRITE !,"----------------------------------------------------------------------"
- +23 IF $PIECE(E,U,4)="RDE"
- Begin DoDot:1
- +24 WRITE !,"Order Code: "
- SET B=$GET(^BOP(90355.1,A,2))
- +25 WRITE $PIECE(B,U),?18,"Internal Order #: ",$PIECE(B,U,2),?42,"Order Status: ",$PIECE(B,U,3)
- +26 WRITE !,"Posting Date: ",$$FMTE^XLFDT($PIECE(B,U,4),"2Z")
- +27 WRITE ?36,"Q/T Freq: "
- SET B=$GET(^BOP(90355.1,A,3))
- WRITE $PIECE(B,U)
- +28 WRITE !,"Q/T Order Start D/T: ",$$FMTE^XLFDT($PIECE(B,U,3),"2Z")
- +29 WRITE !,"Q/T Order End D/T: ",$$FMTE^XLFDT($PIECE(B,U,4),"2Z")
- +30 SET B=$GET(^BOP(90355.1,A,8))
- +31 WRITE !,"Route: ",$PIECE(B,U)
- +32 SET B=$GET(^BOP(90355.1,A,4))
- +33 WRITE ?40,"Drug #: ",$PIECE(B,U)
- +34 WRITE !,"Drug Description: ",$PIECE(B,U,2)
- End DoDot:1
- +35 QUIT
