BCHON001 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ; [ 10/28/96 2:05 PM ]
;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"PRO",310,0)
;;=BCH UPDATE ACTIVITY RECORD MENU^Update CHR Activity Records^^M^^^^^^^^
;;^UTILITY(U,$J,"PRO",310,4)
;;=25
;;^UTILITY(U,$J,"PRO",310,10,0)
;;=^101.01PA^12^12
;;^UTILITY(U,$J,"PRO",310,10,1,0)
;;=311^AD^5
;;^UTILITY(U,$J,"PRO",310,10,1,"^")
;;=BCH ADD RECORD
;;^UTILITY(U,$J,"PRO",310,10,2,0)
;;=312^ED^10
;;^UTILITY(U,$J,"PRO",310,10,2,"^")
;;=BCH EDIT RECORD
;;^UTILITY(U,$J,"PRO",310,10,3,0)
;;=313^DS^15
;;^UTILITY(U,$J,"PRO",310,10,3,"^")
;;=BCH DISPLAY RECORD
;;^UTILITY(U,$J,"PRO",310,10,4,0)
;;=314^DE^20
;;^UTILITY(U,$J,"PRO",310,10,4,"^")
;;=BCH DELETE RECORD
;;^UTILITY(U,$J,"PRO",310,10,5,0)
;;=315^HS^25
;;^UTILITY(U,$J,"PRO",310,10,5,"^")
;;=BCH DISPLAY HEALTH SUMMARY
;;^UTILITY(U,$J,"PRO",310,10,6,0)
;;=318^Q^99
;;^UTILITY(U,$J,"PRO",310,10,6,"^")
;;=BCH QUIT
;;^UTILITY(U,$J,"PRO",310,10,7,0)
;;=321^NS^55
;;^UTILITY(U,$J,"PRO",310,10,7,"^")
;;=BCH NEXT SCREEN
;;^UTILITY(U,$J,"PRO",310,10,8,0)
;;=319^DN^65
;;^UTILITY(U,$J,"PRO",310,10,8,"^")
;;=BCH DOWN A LINE
;;^UTILITY(U,$J,"PRO",310,10,9,0)
;;=320^UP^66
;;^UTILITY(U,$J,"PRO",310,10,9,"^")
;;=BCH UP A LINE
;;^UTILITY(U,$J,"PRO",310,10,10,0)
;;=322^PS^60
;;^UTILITY(U,$J,"PRO",310,10,10,"^")
;;=BCH PREVIOUS SCREEN
;;^UTILITY(U,$J,"PRO",310,10,11,0)
;;=324^PL^68
;;^UTILITY(U,$J,"PRO",310,10,11,"^")
;;=BCH PRINT LIST
;;^UTILITY(U,$J,"PRO",310,10,12,0)
;;=323^SL^70
;;^UTILITY(U,$J,"PRO",310,10,12,"^")
;;=BCH SEARCH LIST
;;^UTILITY(U,$J,"PRO",310,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",310,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",310,29)
;;=AD
;;^UTILITY(U,$J,"PRO",310,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",311,0)
;;=BCH ADD RECORD^Add Record^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",311,15)
;;=
;;^UTILITY(U,$J,"PRO",311,20)
;;=D ADDR^BCHUADD
;;^UTILITY(U,$J,"PRO",311,26)
;;=
;;^UTILITY(U,$J,"PRO",311,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",312,0)
;;=BCH EDIT RECORD^Edit Record^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",312,4)
;;=^^^ED
;;^UTILITY(U,$J,"PRO",312,15)
;;=
;;^UTILITY(U,$J,"PRO",312,20)
;;=D ^BCHUEDT
;;^UTILITY(U,$J,"PRO",312,26)
;;=
;;^UTILITY(U,$J,"PRO",312,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",313,0)
;;=BCH DISPLAY RECORD^Display Record^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",313,4)
;;=^^^DS
;;^UTILITY(U,$J,"PRO",313,20)
;;=D EN^BCHUDISP
;;^UTILITY(U,$J,"PRO",313,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",314,0)
;;=BCH DELETE RECORD^Delete Record^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",314,4)
;;=^^^DE
;;^UTILITY(U,$J,"PRO",314,20)
;;=D DEL^BCHUDEL
;;^UTILITY(U,$J,"PRO",314,21,0)
;;=^101.021A^1^1
;;^UTILITY(U,$J,"PRO",314,21,1,0)
;;=BCHRDEL
;;^UTILITY(U,$J,"PRO",314,21,"B","BCHRDEL")
;;=
;;^UTILITY(U,$J,"PRO",314,21,"B","BCHRDEL",1)
;;=
;;^UTILITY(U,$J,"PRO",314,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",315,0)
;;=BCH DISPLAY HEALTH SUMMARY^Health Summary^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",315,4)
;;=^^^HS
;;^UTILITY(U,$J,"PRO",315,20)
;;=D EN^BCHHS
;;^UTILITY(U,$J,"PRO",315,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",316,0)
;;=BCH CHR RECORD EVENT^CHR Record Added/Updated^^X^^^^^^^^
;;^UTILITY(U,$J,"PRO",316,10,0)
;;=^101.01PA^1^1
;;^UTILITY(U,$J,"PRO",316,10,1,0)
;;=425^
;;^UTILITY(U,$J,"PRO",316,10,1,"^")
;;=BCH ANCILLARY VISIT EVENT
;;^UTILITY(U,$J,"PRO",316,21,0)
;;=^101.021A^1^1
;;^UTILITY(U,$J,"PRO",316,21,1,0)
;;=BCHEV
;;^UTILITY(U,$J,"PRO",316,21,"B","BCHEV")
;;=
;;^UTILITY(U,$J,"PRO",316,21,"B","BCHEV",1)
;;=
;;^UTILITY(U,$J,"PRO",316,99)
;;=56873,29037
;;^UTILITY(U,$J,"PRO",318,0)
;;=BCH QUIT^Quit^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",318,1,0)
;;=^^1^1^2911105^
;;^UTILITY(U,$J,"PRO",318,1,1,0)
;;=This protocol can be used as a generic 'quit' action.
;;^UTILITY(U,$J,"PRO",318,2,0)
;;=^101.02A^2^2
;;^UTILITY(U,$J,"PRO",318,2,1,0)
;;=EXIT
;;^UTILITY(U,$J,"PRO",318,2,2,0)
;;=QUIT
;;^UTILITY(U,$J,"PRO",318,2,"B","EXIT")
;;=
;;^UTILITY(U,$J,"PRO",318,2,"B","EXIT",1)
;;=
;;^UTILITY(U,$J,"PRO",318,2,"B","QUIT",2)
;;=
;;^UTILITY(U,$J,"PRO",318,4)
;;=^^^Q
;;^UTILITY(U,$J,"PRO",318,20)
;;=Q
;;^UTILITY(U,$J,"PRO",318,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",319,0)
;;=BCH DOWN A LINE^Down a Line^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",319,1,0)
;;=^^2^2^2911027^
;;^UTILITY(U,$J,"PRO",319,1,1,0)
;;=Move down a line.
;;^UTILITY(U,$J,"PRO",319,1,2,0)
;;=
;;^UTILITY(U,$J,"PRO",319,20)
;;=D DOWN^VALM40
;;^UTILITY(U,$J,"PRO",319,99)
;;=56873,29035
;;^UTILITY(U,$J,"PRO",320,0)
;;=BCH UP A LINE^Up a Line^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",320,1,0)
;;=^^1^1^2911027^
;;^UTILITY(U,$J,"PRO",320,1,1,0)
;;=Move up a line
;;^UTILITY(U,$J,"PRO",320,20)
;;=D UP^VALM40
BCHON001 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ; [ 10/28/96 2:05 PM ]
+1 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"PRO",310,0)
+2 ;;=BCH UPDATE ACTIVITY RECORD MENU^Update CHR Activity Records^^M^^^^^^^^
+3 ;;^UTILITY(U,$J,"PRO",310,4)
+4 ;;=25
+5 ;;^UTILITY(U,$J,"PRO",310,10,0)
+6 ;;=^101.01PA^12^12
+7 ;;^UTILITY(U,$J,"PRO",310,10,1,0)
+8 ;;=311^AD^5
+9 ;;^UTILITY(U,$J,"PRO",310,10,1,"^")
+10 ;;=BCH ADD RECORD
+11 ;;^UTILITY(U,$J,"PRO",310,10,2,0)
+12 ;;=312^ED^10
+13 ;;^UTILITY(U,$J,"PRO",310,10,2,"^")
+14 ;;=BCH EDIT RECORD
+15 ;;^UTILITY(U,$J,"PRO",310,10,3,0)
+16 ;;=313^DS^15
+17 ;;^UTILITY(U,$J,"PRO",310,10,3,"^")
+18 ;;=BCH DISPLAY RECORD
+19 ;;^UTILITY(U,$J,"PRO",310,10,4,0)
+20 ;;=314^DE^20
+21 ;;^UTILITY(U,$J,"PRO",310,10,4,"^")
+22 ;;=BCH DELETE RECORD
+23 ;;^UTILITY(U,$J,"PRO",310,10,5,0)
+24 ;;=315^HS^25
+25 ;;^UTILITY(U,$J,"PRO",310,10,5,"^")
+26 ;;=BCH DISPLAY HEALTH SUMMARY
+27 ;;^UTILITY(U,$J,"PRO",310,10,6,0)
+28 ;;=318^Q^99
+29 ;;^UTILITY(U,$J,"PRO",310,10,6,"^")
+30 ;;=BCH QUIT
+31 ;;^UTILITY(U,$J,"PRO",310,10,7,0)
+32 ;;=321^NS^55
+33 ;;^UTILITY(U,$J,"PRO",310,10,7,"^")
+34 ;;=BCH NEXT SCREEN
+35 ;;^UTILITY(U,$J,"PRO",310,10,8,0)
+36 ;;=319^DN^65
+37 ;;^UTILITY(U,$J,"PRO",310,10,8,"^")
+38 ;;=BCH DOWN A LINE
+39 ;;^UTILITY(U,$J,"PRO",310,10,9,0)
+40 ;;=320^UP^66
+41 ;;^UTILITY(U,$J,"PRO",310,10,9,"^")
+42 ;;=BCH UP A LINE
+43 ;;^UTILITY(U,$J,"PRO",310,10,10,0)
+44 ;;=322^PS^60
+45 ;;^UTILITY(U,$J,"PRO",310,10,10,"^")
+46 ;;=BCH PREVIOUS SCREEN
+47 ;;^UTILITY(U,$J,"PRO",310,10,11,0)
+48 ;;=324^PL^68
+49 ;;^UTILITY(U,$J,"PRO",310,10,11,"^")
+50 ;;=BCH PRINT LIST
+51 ;;^UTILITY(U,$J,"PRO",310,10,12,0)
+52 ;;=323^SL^70
+53 ;;^UTILITY(U,$J,"PRO",310,10,12,"^")
+54 ;;=BCH SEARCH LIST
+55 ;;^UTILITY(U,$J,"PRO",310,26)
+56 ;;=D SHOW^VALM
+57 ;;^UTILITY(U,$J,"PRO",310,28)
+58 ;;=Select Action:
+59 ;;^UTILITY(U,$J,"PRO",310,29)
+60 ;;=AD
+61 ;;^UTILITY(U,$J,"PRO",310,99)
+62 ;;=56873,29035
+63 ;;^UTILITY(U,$J,"PRO",311,0)
+64 ;;=BCH ADD RECORD^Add Record^^A^^^^^^^^
+65 ;;^UTILITY(U,$J,"PRO",311,15)
+66 ;;=
+67 ;;^UTILITY(U,$J,"PRO",311,20)
+68 ;;=D ADDR^BCHUADD
+69 ;;^UTILITY(U,$J,"PRO",311,26)
+70 ;;=
+71 ;;^UTILITY(U,$J,"PRO",311,99)
+72 ;;=56873,29035
+73 ;;^UTILITY(U,$J,"PRO",312,0)
+74 ;;=BCH EDIT RECORD^Edit Record^^A^^^^^^^^
+75 ;;^UTILITY(U,$J,"PRO",312,4)
+76 ;;=^^^ED
+77 ;;^UTILITY(U,$J,"PRO",312,15)
+78 ;;=
+79 ;;^UTILITY(U,$J,"PRO",312,20)
+80 ;;=D ^BCHUEDT
+81 ;;^UTILITY(U,$J,"PRO",312,26)
+82 ;;=
+83 ;;^UTILITY(U,$J,"PRO",312,99)
+84 ;;=56873,29035
+85 ;;^UTILITY(U,$J,"PRO",313,0)
+86 ;;=BCH DISPLAY RECORD^Display Record^^A^^^^^^^^
+87 ;;^UTILITY(U,$J,"PRO",313,4)
+88 ;;=^^^DS
+89 ;;^UTILITY(U,$J,"PRO",313,20)
+90 ;;=D EN^BCHUDISP
+91 ;;^UTILITY(U,$J,"PRO",313,99)
+92 ;;=56873,29035
+93 ;;^UTILITY(U,$J,"PRO",314,0)
+94 ;;=BCH DELETE RECORD^Delete Record^^A^^^^^^^^
+95 ;;^UTILITY(U,$J,"PRO",314,4)
+96 ;;=^^^DE
+97 ;;^UTILITY(U,$J,"PRO",314,20)
+98 ;;=D DEL^BCHUDEL
+99 ;;^UTILITY(U,$J,"PRO",314,21,0)
+100 ;;=^101.021A^1^1
+101 ;;^UTILITY(U,$J,"PRO",314,21,1,0)
+102 ;;=BCHRDEL
+103 ;;^UTILITY(U,$J,"PRO",314,21,"B","BCHRDEL")
+104 ;;=
+105 ;;^UTILITY(U,$J,"PRO",314,21,"B","BCHRDEL",1)
+106 ;;=
+107 ;;^UTILITY(U,$J,"PRO",314,99)
+108 ;;=56873,29035
+109 ;;^UTILITY(U,$J,"PRO",315,0)
+110 ;;=BCH DISPLAY HEALTH SUMMARY^Health Summary^^A^^^^^^^^
+111 ;;^UTILITY(U,$J,"PRO",315,4)
+112 ;;=^^^HS
+113 ;;^UTILITY(U,$J,"PRO",315,20)
+114 ;;=D EN^BCHHS
+115 ;;^UTILITY(U,$J,"PRO",315,99)
+116 ;;=56873,29035
+117 ;;^UTILITY(U,$J,"PRO",316,0)
+118 ;;=BCH CHR RECORD EVENT^CHR Record Added/Updated^^X^^^^^^^^
+119 ;;^UTILITY(U,$J,"PRO",316,10,0)
+120 ;;=^101.01PA^1^1
+121 ;;^UTILITY(U,$J,"PRO",316,10,1,0)
+122 ;;=425^
+123 ;;^UTILITY(U,$J,"PRO",316,10,1,"^")
+124 ;;=BCH ANCILLARY VISIT EVENT
+125 ;;^UTILITY(U,$J,"PRO",316,21,0)
+126 ;;=^101.021A^1^1
+127 ;;^UTILITY(U,$J,"PRO",316,21,1,0)
+128 ;;=BCHEV
+129 ;;^UTILITY(U,$J,"PRO",316,21,"B","BCHEV")
+130 ;;=
+131 ;;^UTILITY(U,$J,"PRO",316,21,"B","BCHEV",1)
+132 ;;=
+133 ;;^UTILITY(U,$J,"PRO",316,99)
+134 ;;=56873,29037
+135 ;;^UTILITY(U,$J,"PRO",318,0)
+136 ;;=BCH QUIT^Quit^^A^^^^^^^^
+137 ;;^UTILITY(U,$J,"PRO",318,1,0)
+138 ;;=^^1^1^2911105^
+139 ;;^UTILITY(U,$J,"PRO",318,1,1,0)
+140 ;;=This protocol can be used as a generic 'quit' action.
+141 ;;^UTILITY(U,$J,"PRO",318,2,0)
+142 ;;=^101.02A^2^2
+143 ;;^UTILITY(U,$J,"PRO",318,2,1,0)
+144 ;;=EXIT
+145 ;;^UTILITY(U,$J,"PRO",318,2,2,0)
+146 ;;=QUIT
+147 ;;^UTILITY(U,$J,"PRO",318,2,"B","EXIT")
+148 ;;=
+149 ;;^UTILITY(U,$J,"PRO",318,2,"B","EXIT",1)
+150 ;;=
+151 ;;^UTILITY(U,$J,"PRO",318,2,"B","QUIT",2)
+152 ;;=
+153 ;;^UTILITY(U,$J,"PRO",318,4)
+154 ;;=^^^Q
+155 ;;^UTILITY(U,$J,"PRO",318,20)
+156 ;;=Q
+157 ;;^UTILITY(U,$J,"PRO",318,99)
+158 ;;=56873,29035
+159 ;;^UTILITY(U,$J,"PRO",319,0)
+160 ;;=BCH DOWN A LINE^Down a Line^^A^^^^^^^^
+161 ;;^UTILITY(U,$J,"PRO",319,1,0)
+162 ;;=^^2^2^2911027^
+163 ;;^UTILITY(U,$J,"PRO",319,1,1,0)
+164 ;;=Move down a line.
+165 ;;^UTILITY(U,$J,"PRO",319,1,2,0)
+166 ;;=
+167 ;;^UTILITY(U,$J,"PRO",319,20)
+168 ;;=D DOWN^VALM40
+169 ;;^UTILITY(U,$J,"PRO",319,99)
+170 ;;=56873,29035
+171 ;;^UTILITY(U,$J,"PRO",320,0)
+172 ;;=BCH UP A LINE^Up a Line^^A^^^^^^^^
+173 ;;^UTILITY(U,$J,"PRO",320,1,0)
+174 ;;=^^1^1^2911027^
+175 ;;^UTILITY(U,$J,"PRO",320,1,1,0)
+176 ;;=Move up a line
+177 ;;^UTILITY(U,$J,"PRO",320,20)
+178 ;;=D UP^VALM40
