AZXAO001 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;
;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002
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",959,0)
;;=AZXA RECORD DISPLAY^ROI Record Display^^M^^^^^^^^
;;^UTILITY(U,$J,"PRO",959,10,0)
;;=^101.01PA^3^3
;;^UTILITY(U,$J,"PRO",959,10,1,0)
;;=989^+^10
;;^UTILITY(U,$J,"PRO",959,10,1,"^")
;;=AZXA NEXT SCREEN
;;^UTILITY(U,$J,"PRO",959,10,2,0)
;;=990^-^20
;;^UTILITY(U,$J,"PRO",959,10,2,"^")
;;=AZXA PREVIOUS SCREEN
;;^UTILITY(U,$J,"PRO",959,10,3,0)
;;=991^Q^99
;;^UTILITY(U,$J,"PRO",959,10,3,"^")
;;=AZXA QUIT
;;^UTILITY(U,$J,"PRO",959,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",959,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",959,29)
;;=+
;;^UTILITY(U,$J,"PRO",959,99)
;;=58219,44875
;;^UTILITY(U,$J,"PRO",989,0)
;;=AZXA NEXT SCREEN^Next Screen^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",989,1,0)
;;=^^2^2^2920519^^^
;;^UTILITY(U,$J,"PRO",989,1,1,0)
;;=This action will allow the user to view the next screen
;;^UTILITY(U,$J,"PRO",989,1,2,0)
;;=of entries, if any exist.
;;^UTILITY(U,$J,"PRO",989,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",989,2,1,0)
;;=NX
;;^UTILITY(U,$J,"PRO",989,2,"B","NX",1)
;;=
;;^UTILITY(U,$J,"PRO",989,20)
;;=D NEXT^VALM4
;;^UTILITY(U,$J,"PRO",989,99)
;;=58219,42882
;;^UTILITY(U,$J,"PRO",990,0)
;;=AZXA PREVIOUS SCREEN^Previous Screen^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",990,1,0)
;;=^^2^2^2920113^^
;;^UTILITY(U,$J,"PRO",990,1,1,0)
;;=This action will allow the user to view the previous screen
;;^UTILITY(U,$J,"PRO",990,1,2,0)
;;=of entries, if any exist.
;;^UTILITY(U,$J,"PRO",990,2,0)
;;=^101.02A^3^3
;;^UTILITY(U,$J,"PRO",990,2,1,0)
;;=PR
;;^UTILITY(U,$J,"PRO",990,2,2,0)
;;=BK
;;^UTILITY(U,$J,"PRO",990,2,3,0)
;;=PR
;;^UTILITY(U,$J,"PRO",990,2,"B","BK",2)
;;=
;;^UTILITY(U,$J,"PRO",990,2,"B","PR",1)
;;=
;;^UTILITY(U,$J,"PRO",990,2,"B","PR",3)
;;=
;;^UTILITY(U,$J,"PRO",990,20)
;;=D PREV^VALM4
;;^UTILITY(U,$J,"PRO",990,99)
;;=58219,42937
;;^UTILITY(U,$J,"PRO",991,0)
;;=AZXA QUIT^Quit^^A^^^^^^^^LIST MANAGER
;;^UTILITY(U,$J,"PRO",991,1,0)
;;=^^1^1^2911105^
;;^UTILITY(U,$J,"PRO",991,1,1,0)
;;=This protocol can be used as a generic 'quit' action.
;;^UTILITY(U,$J,"PRO",991,2,0)
;;=^101.02A^2^2
;;^UTILITY(U,$J,"PRO",991,2,1,0)
;;=EXIT
;;^UTILITY(U,$J,"PRO",991,2,2,0)
;;=QUIT
;;^UTILITY(U,$J,"PRO",991,2,"B","EXIT",1)
;;=
;;^UTILITY(U,$J,"PRO",991,2,"B","QUIT",2)
;;=
;;^UTILITY(U,$J,"PRO",991,20)
;;=Q
;;^UTILITY(U,$J,"PRO",991,99)
;;=58219,42961
AZXAO001 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;
+1 ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002
+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",959,0)
+2 ;;=AZXA RECORD DISPLAY^ROI Record Display^^M^^^^^^^^
+3 ;;^UTILITY(U,$J,"PRO",959,10,0)
+4 ;;=^101.01PA^3^3
+5 ;;^UTILITY(U,$J,"PRO",959,10,1,0)
+6 ;;=989^+^10
+7 ;;^UTILITY(U,$J,"PRO",959,10,1,"^")
+8 ;;=AZXA NEXT SCREEN
+9 ;;^UTILITY(U,$J,"PRO",959,10,2,0)
+10 ;;=990^-^20
+11 ;;^UTILITY(U,$J,"PRO",959,10,2,"^")
+12 ;;=AZXA PREVIOUS SCREEN
+13 ;;^UTILITY(U,$J,"PRO",959,10,3,0)
+14 ;;=991^Q^99
+15 ;;^UTILITY(U,$J,"PRO",959,10,3,"^")
+16 ;;=AZXA QUIT
+17 ;;^UTILITY(U,$J,"PRO",959,26)
+18 ;;=D SHOW^VALM
+19 ;;^UTILITY(U,$J,"PRO",959,28)
+20 ;;=Select Action:
+21 ;;^UTILITY(U,$J,"PRO",959,29)
+22 ;;=+
+23 ;;^UTILITY(U,$J,"PRO",959,99)
+24 ;;=58219,44875
+25 ;;^UTILITY(U,$J,"PRO",989,0)
+26 ;;=AZXA NEXT SCREEN^Next Screen^^A^^^^^^^^LIST MANAGER
+27 ;;^UTILITY(U,$J,"PRO",989,1,0)
+28 ;;=^^2^2^2920519^^^
+29 ;;^UTILITY(U,$J,"PRO",989,1,1,0)
+30 ;;=This action will allow the user to view the next screen
+31 ;;^UTILITY(U,$J,"PRO",989,1,2,0)
+32 ;;=of entries, if any exist.
+33 ;;^UTILITY(U,$J,"PRO",989,2,0)
+34 ;;=^101.02A^1^1
+35 ;;^UTILITY(U,$J,"PRO",989,2,1,0)
+36 ;;=NX
+37 ;;^UTILITY(U,$J,"PRO",989,2,"B","NX",1)
+38 ;;=
+39 ;;^UTILITY(U,$J,"PRO",989,20)
+40 ;;=D NEXT^VALM4
+41 ;;^UTILITY(U,$J,"PRO",989,99)
+42 ;;=58219,42882
+43 ;;^UTILITY(U,$J,"PRO",990,0)
+44 ;;=AZXA PREVIOUS SCREEN^Previous Screen^^A^^^^^^^^LIST MANAGER
+45 ;;^UTILITY(U,$J,"PRO",990,1,0)
+46 ;;=^^2^2^2920113^^
+47 ;;^UTILITY(U,$J,"PRO",990,1,1,0)
+48 ;;=This action will allow the user to view the previous screen
+49 ;;^UTILITY(U,$J,"PRO",990,1,2,0)
+50 ;;=of entries, if any exist.
+51 ;;^UTILITY(U,$J,"PRO",990,2,0)
+52 ;;=^101.02A^3^3
+53 ;;^UTILITY(U,$J,"PRO",990,2,1,0)
+54 ;;=PR
+55 ;;^UTILITY(U,$J,"PRO",990,2,2,0)
+56 ;;=BK
+57 ;;^UTILITY(U,$J,"PRO",990,2,3,0)
+58 ;;=PR
+59 ;;^UTILITY(U,$J,"PRO",990,2,"B","BK",2)
+60 ;;=
+61 ;;^UTILITY(U,$J,"PRO",990,2,"B","PR",1)
+62 ;;=
+63 ;;^UTILITY(U,$J,"PRO",990,2,"B","PR",3)
+64 ;;=
+65 ;;^UTILITY(U,$J,"PRO",990,20)
+66 ;;=D PREV^VALM4
+67 ;;^UTILITY(U,$J,"PRO",990,99)
+68 ;;=58219,42937
+69 ;;^UTILITY(U,$J,"PRO",991,0)
+70 ;;=AZXA QUIT^Quit^^A^^^^^^^^LIST MANAGER
+71 ;;^UTILITY(U,$J,"PRO",991,1,0)
+72 ;;=^^1^1^2911105^
+73 ;;^UTILITY(U,$J,"PRO",991,1,1,0)
+74 ;;=This protocol can be used as a generic 'quit' action.
+75 ;;^UTILITY(U,$J,"PRO",991,2,0)
+76 ;;=^101.02A^2^2
+77 ;;^UTILITY(U,$J,"PRO",991,2,1,0)
+78 ;;=EXIT
+79 ;;^UTILITY(U,$J,"PRO",991,2,2,0)
+80 ;;=QUIT
+81 ;;^UTILITY(U,$J,"PRO",991,2,"B","EXIT",1)
+82 ;;=
+83 ;;^UTILITY(U,$J,"PRO",991,2,"B","QUIT",2)
+84 ;;=
+85 ;;^UTILITY(U,$J,"PRO",991,20)
+86 ;;=Q
+87 ;;^UTILITY(U,$J,"PRO",991,99)
+88 ;;=58219,42961
